diff --git a/src/lisp/ini.lisp b/src/lisp/ini.lisp
index 2294925..a000bca 100644
--- a/src/lisp/ini.lisp
+++ b/src/lisp/ini.lisp
@@ -573,8 +573,7 @@
    Convenience function: a simple message box, converting <code>x</code> to a string if necessary.<br>Returns its argument (just like <code>print</code>)."
   (qlet ((msg "QMessageBox"
               "icon" |QMessageBox.Information|
-              "text" (if (stringp x) x (prin1-to-string x))
-              "standardButtons" |QMessageBox.Ok|))
+              "text" (if (stringp x) x (prin1-to-string x))))
     (! "setWindowTitle" msg "EQL5")
     (dolist (fun '("show" "raise" "exec")) ; "raise" needed in some situations (e.g. OSX)
       (qfun msg fun)))