From 6a8eb44022658ab5088fd565b9ae4fa8a224996a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 24 May 1999 18:53:27 +0000
Subject: [PATCH] .

original commit: 7f6071598639bd7bbec6695a435eab4ef81fb9b0
---
 collects/framework/keymap.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss
index 9884311a..aa6b2472 100644
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@@ -416,8 +416,9 @@
 			       (lambda ()
 				 (send edit end-edit-sequence))))
 			    (let ([k (send event get-key-code)])
-			      (if (<= (char->integer #\0) k (char->integer #\9))
-				  (set! n (+ (* n 10) (- k (char->integer #\0))))
+			      (if (and (char? k) (char<=? #\0 k #\9))
+				  (set! n (+ (* n 10) (- (char->integer k)
+							 (char->integer #\0))))
 				  (begin
 				    (done)
 				    (dynamic-wind