diff --git a/collects/mred/private/wxtop.ss b/collects/mred/private/wxtop.ss
index 0c44e065..2427d11f 100644
--- a/collects/mred/private/wxtop.ss
+++ b/collects/mred/private/wxtop.ss
@@ -236,13 +236,11 @@
                    (not on?)
                    (child . is-a? . wx-frame%)
                    (child . is-a? . wx-dialog%))
-               (send child really-show on?)
+	       (begin
+		 (hash-table-remove! fake-show-ht child)
+		 (send child really-show on?))
                (begin
-                 (if on?
-                     (hash-table-put! fake-show-ht child #t)
-                     (begin
-                       (hash-table-remove! show-ht child)
-                       (hash-table-remove! fake-show-ht child)))
+		 (hash-table-put! fake-show-ht child #t)
                  (send child fake-show on?))))]
 
 	;; force-redraw: receives a message from to redraw the