From 39021e2da00b860f26ea8532b07dd072438d3667 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 28 Oct 2008 21:22:18 +0000
Subject: [PATCH] fixed a bug noticed by Casey & John

svn: r12160
---
 collects/framework/keybinding-lang.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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