From 1af006c2467a4b2fc5c6e8cc954d96d463118c78 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 3 Aug 2007 07:15:04 +0000
Subject: [PATCH] bugfix

svn: r7010
---
 collects/framework/private/keymap.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 3562b0beef..bd8e067405 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -130,8 +130,8 @@
            (unless (hash-table-get table keyname (λ () #f))
              (cond
                [(and (eq? (system-type) 'windows)
-                     (or (regexp-match #rx"a:c" keyname)
-                         (regexp-match #rx"c:m" keyname)))
+                     (or (regexp-match #rx"a:c" (format "~a" keyname))
+                         (regexp-match #rx"c:m" (format "~a" keyname))))
                 (void) ;; don't show these keybindigns -- they don't work
                 ]
                [else