From 59761d434ad3b9ba025aa19aa1baeee4bacaca7b Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 14 Jun 2007 03:09:30 +0000
Subject: [PATCH] Better tag

svn: r6660
---
 collects/web-server/lang/labels.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/web-server/lang/labels.ss b/collects/web-server/lang/labels.ss
index ed33909c49..3641c26be2 100644
--- a/collects/web-server/lang/labels.ss
+++ b/collects/web-server/lang/labels.ss
@@ -14,5 +14,5 @@
     (define tag (md5 pgm))
     (lambda ()
       (begin0
-        (string->symbol (format "~a~a" tag (unbox count)))
+        (string->symbol (format "~a:~a" tag (unbox count)))
         (set-box! count (add1 (unbox count)))))))
\ No newline at end of file