diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss
index 3fc9cbcf..7472b6c4 100644
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@@ -907,9 +907,6 @@
 	    (map "middlebutton" "paste-click-region")
 	    (map "c:rightbutton" "copy-clipboard")))))
 
-    (define global-keymap (make-object 
-			   (class-asi wx:keymap%
-			     (public
-			       [DUMMY (eval '(make-rectangular 1 1))]))))
+    (define global-keymap (make-object wx:keymap%))
 					     
     (setup-global-keymap global-keymap))