fixed a bug noticed by Casey & John

svn: r12160
2008-10-28 21:22:18 +00:00 · 2008-10-28 21:22:18 +00:00 · 39021e2da0
commit 39021e2da0
parent c9244e48ff
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/keybinding-lang.ss
+++ b/collects/framework/keybinding-lang.ss
@ -32,7 +32,7 @@
                    (let ([name 
                           (cond
                             [(symbol? (object-name proc))
-                              (format "~a" (object-name proc))]
+                              (format "~a:~a" (object-name proc) counter)]
                             [(and line col)
                              (format "~a:~a.~a:~a" src line col counter)]
                             [else