diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index c130a59f38..efe7b5d8e4 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -1234,6 +1234,8 @@
           (map "s:insert" "paste-clipboard")
           
           (map-meta "space" "collapse-space")
+          (when (eq? (system-type) 'macosx)
+            (map "a:space" "collapse-space"))
           ;(map-meta "\\" "remove-space") ; Conflicts with european keyboards.
           (map "c:x;c:o" "collapse-newline")
           (map "c:o" "open-line")