diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 642c1adc..b59337a2 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2879,7 +2879,7 @@
       [(minh min-height) (param get-wx-panel min-height)]
       [(sw stretchable-width) (param get-wx-panel stretchable-in-x)]
       [(sh stretchable-height) (param get-wx-panel stretchable-in-y)]
-      [get-graphical-min-size (entry-point (lambda () (send wx get-hard-minimum-size)))])
+      [get-graphical-min-size (entry-point (lambda () (apply values (send wx get-graphical-min-size))))])
     (private-field
       [wx (mk-wx)])
     (sequence
@@ -2915,7 +2915,7 @@
 
 (define area-container<%> 
   (interface (area<%>) 
-    reflow-container begin-container-sequence end-container-sequence
+    reflow-container container-modified begin-container-sequence end-container-sequence
     container-size
     get-children change-children place-children
     after-new-child
@@ -2945,6 +2945,10 @@
     (public
       [after-new-child (lambda (c) (void))]
       [reflow-container (entry-point (lambda () (send (send (get-wx-panel) get-top-level) force-redraw)))]
+      [container-modified (entry-point (lambda () 
+					 (let ([p (get-wx-panel)])
+					   (send p need-move-children)
+					   (send p force-redraw))))]
       [begin-container-sequence (entry-point (lambda () (send (send (get-wx-panel) get-top-level) begin-container-sequence)))]
       [end-container-sequence (entry-point (lambda () (send (send (get-wx-panel) get-top-level) end-container-sequence)))]
       [get-children (entry-point (lambda () (map wx->proxy (send (get-wx-panel) get-children))))]