diff --git a/collects/framework/guiutils.ss b/collects/framework/guiutils.ss
index 64fdb1c6..6ffa6371 100644
--- a/collects/framework/guiutils.ss
+++ b/collects/framework/guiutils.ss
@@ -129,7 +129,7 @@
 		(make-object message% m vp))))
 
 	(send vp set-alignment 'left 'center)
-	(send hp set-alignment 'right 'top)
+	(send hp set-alignment 'right 'center)
 	(send (make-object button% true-choice hp on-true '(border)) focus)
 	(make-object button% false-choice hp on-false)
 	(send dialog center 'both)