From 257ceb7449df54437686cf3e008c1ac2add62587 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 22 Jun 2006 03:01:43 +0000
Subject: [PATCH] fixed PR 8137

svn: r3433
---
 collects/framework/private/keymap.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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