diff --git a/src/editfns.c b/src/editfns.c
index ddf080a0359..4bc5336e997 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3175,7 +3175,7 @@ usage: (message-box STRING &rest ARGS)  */)
 	pane = Fcons (Fcons (build_string ("OK"), Qt), Qnil);
 	GCPRO1 (pane);
 	menu = Fcons (val, pane);
-	obj = Fx_popup_dialog (Qt, menu);
+	obj = Fx_popup_dialog (Qt, menu, Qt);
 	UNGCPRO;
 	return val;
       }