fixed a bug noticed by Casey & John

svn: r12160 original commit: 39021e2da00b860f26ea8532b07dd072438d3667
2008-10-28 21:22:18 +00:00 · 2008-10-28 21:22:18 +00:00 · 0f02da5cff
commit 0f02da5cff
parent 936effa0dc
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