diff --git a/collects/framework/keybinding-lang.ss b/collects/framework/keybinding-lang.ss
index ce7bf949b0..6676842f2c 100644
--- 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