Better tag

svn: r6660
2007-06-14 03:09:30 +00:00 · 2007-06-14 03:09:30 +00:00 · 59761d434a
commit 59761d434a
parent c4ccd0e29a
1 changed files with 1 additions and 1 deletions
--- 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)))))))