diff --git a/collects/mred/private/wxme/keymap.rkt b/collects/mred/private/wxme/keymap.rkt
index b040354b..4f66580d 100644
--- a/collects/mred/private/wxme/keymap.rkt
+++ b/collects/mred/private/wxme/keymap.rkt
@@ -272,6 +272,8 @@
                       (if (ctrl . < . 0) "~c:" "")
                       (if (shift . > . 0) "s:" "")
                       (if (shift . < . 0) "~s:" "")
+                      (if (caps . > . 0) "l:" "")
+                      (if (caps . < . 0) "~l:" "")
                       (or (hash-ref rev-keylist code)
                           (format "~c" code)))])
                 (error (method-name 'keymap% 'map-function)
@@ -384,7 +386,7 @@
                                             (values downs code)])
                                           (values downs code))])
                           (let ([newkey
-                                 (let ([modval (lambda (c)
+                                 (let ([modval (lambda (c [default-off? default-off?])
                                                  (cond
                                                   [(memq c downs) 1]
                                                   [(memq c ups) -1]
@@ -395,7 +397,7 @@
                                                     (modval #\a)
                                                     (modval #\m)
                                                     (modval #\d)
-                                                    (modval #\l)
+                                                    (modval #\l #f)
                                                     others?
                                                     fname
                                                     prev-key