diff --git a/collects/mrlib/switchable-button.ss b/collects/mrlib/switchable-button.ss
index 45d7de6e..07ba9187 100644
--- a/collects/mrlib/switchable-button.ss
+++ b/collects/mrlib/switchable-button.ss
@@ -285,7 +285,7 @@
            (send bdc set-bitmap #f)
            disable-bm))))
 
-
+#;
 (begin
   (define f (new frame% [label ""]))
   (define vp (new vertical-pane% [parent f]))
@@ -319,4 +319,4 @@
           (λ (a b)
             (send sb enable (not (send sb is-enabled?)))
             (send b1 enable (not (send b1 is-enabled?))))]))
-  (send f show #t))
\ No newline at end of file
+  (send f show #t))