diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 8ee56887..ea3946d4 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -801,8 +801,11 @@
 
       (public
 	[get-info-panel
-	 (let ([info-panel (make-object horizontal-panel% super-root)])
+	 (let* ([outer-info-panel (make-object horizontal-panel% super-root)]
+		[info-panel (make-object horizontal-panel% outer-info-panel)]
+		[spacer (make-object grow-box-spacer-pane% outer-info-panel)])
 	   (lambda ()
+	     (send outer-info-panel stretchable-height #f)
 	     info-panel))])
       (private
 	[lock-message (make-object message%
diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss
index aaadb23e..8c70c9f3 100644
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@@ -80,9 +80,8 @@
 	      (apply super-init args)))]
 	 [(panel) (make-object vertical-pane% frame)]
 	 [(logo-canvas) (make-object splash-canvas% panel)]
-	 [(h-panel) (make-object vertical-pane% panel)]
-	 [(gauge) (make-object gauge% #f splash-max-width h-panel
-			       '(horizontal))]
+	 [(h-panel) (make-object horizontal-pane% panel)]
+	 [(gauge) (make-object gauge% #f splash-max-width h-panel '(horizontal))]
 	 [(spacer) (make-object grow-box-spacer-pane% h-panel)]
 	 [(_3) (begin
 		(send frame set-alignment 'center 'center)