diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 5a422a4e..9125865b 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -30,7 +30,7 @@
                          (parameterize ([read-accept-reader #t])
                            (call-with-input-file path read)))])
          (match sexp
-           [`(module ,name ,(? valid-key-bindings-lang?)
+           [`(module ,name ,(? valid-keybindings-lang?)
                ,@(x ...)) 
             (let ([km (dynamic-require spec '#%keymap)])
               (hash-set! user-keybindings-files spec km)