diff --git a/collects/framework/private/panel.ss b/collects/framework/private/panel.ss
index e1b2a83c..fe0b62bc 100644
--- a/collects/framework/private/panel.ss
+++ b/collects/framework/private/panel.ss
@@ -205,9 +205,10 @@
 	  (define/public (get-vertical?)
             (error 'get-vertical "abstract method"))
           (define/private (min-extent child) 
-            (if (get-vertical?)
-                (send child min-height)
-                (send child min-width)))
+            (let-values ([(w h) (send child get-graphical-min-size)])
+              (if (get-vertical?)
+                  (max (send child min-height) h)
+                  (max (send child min-width) w))))
           (define/private (event-get-dim evt)
             (if (get-vertical?)
                 (send evt get-y)