From baa2bbc37d045d09c90a9051bbe77b8db3f6ee36 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 4 Sep 2002 04:39:19 +0000
Subject: [PATCH] .

original commit: b69a361c320bf7ae9faee630188eefc640c04385
---
 collects/mred/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 77a43457..a7c39975 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5090,7 +5090,7 @@
 				    (send msg-pnl min-height 64)
 				    (send btn-pnl stretchable-height #f)
 				    (values msg-pnl btn-pnl 96 'right 'left 'top)))]
-		      [else (let ([p (make-object horizontal-pane% f)])
+		      [else (let ([p (instantiate horizontal-pane% (f) [alignment '(center top)])])
 			      (make-object message% 'app p)
 			      (values (make-object vertical-pane% p) f 0 'center 'center 'center))])])
 	(if single?