diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 77bc2420f0..3bc22533ce 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -56,7 +56,8 @@
                      parent-keymap))
             (let c-loop ([child-keymaps (send parent-keymap get-chained-keymaps)])
               (cond
-                [(null? child-keymaps) null]
+                [(null? child-keymaps) 
+                 (void)]
                 [else
                  (let ([child-keymap (car child-keymaps)])
                    (cond