diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss
index 68f27123..6619e556 100644
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@@ -907,5 +907,6 @@
 	    (map "middlebutton" "paste-click-region")
 	    (map "c:rightbutton" "copy-clipboard")))))
 
-    (define global-keymap (make-object wx:keymap%))
+    (define global-keymap wx:keymap%)
+					     
     (setup-global-keymap global-keymap)))
\ No newline at end of file