diff --git a/collects/mrlib/switchable-button.rkt b/collects/mrlib/switchable-button.rkt
index 4c270ca2a1..04ba305e61 100644
--- a/collects/mrlib/switchable-button.rkt
+++ b/collects/mrlib/switchable-button.rkt
@@ -44,11 +44,12 @@
           (send dc set-font font))))
     
     (define/override (on-event evt)
-      (show #f))
+      (send (get-top-level-window) show #f))
         
     (inherit stretchable-width stretchable-height
              min-width min-height
-             get-client-size get-dc show)
+             get-client-size get-dc
+             get-top-level-window)
     (super-new)
     (let-values ([(tw th _1 _2) (send (get-dc) get-text-extent label small-control-font)])
       (min-width (floor (inexact->exact (+ tw 4))))