diff --git a/collects/mred/private/mrtop.rkt b/collects/mred/private/mrtop.rkt
index a99ca6a1da..2c1499ecc5 100644
--- a/collects/mred/private/mrtop.rkt
+++ b/collects/mred/private/mrtop.rkt
@@ -136,7 +136,7 @@
         [do-set-status-text (lambda (s)
                               (send status-message set-label s))])
       (sequence 
-	(super-init (lambda () (set! wx (mk-wx finish)) wx) (lambda () wx-panel) mismatches label parent arrow-cursor))))
+	(super-init (lambda () (set! wx (mk-wx finish)) wx) (lambda () mid-panel) mismatches label parent arrow-cursor))))
 
 
   (define frame%