fix substring

svn: r13920
2009-03-03 19:33:09 +00:00 · 2009-03-03 19:33:09 +00:00 · 4cf824cbb0
commit 4cf824cbb0
parent 089c5363e7
1 changed files with 2 additions and 2 deletions
--- a/collects/repos-time-stamp/stamp.ss
+++ b/collects/repos-time-stamp/stamp.ss
@ -4,7 +4,7 @@
  (string-append "2mar2009 "
 		 (let ([s "$URL$"])
 		   (substring 
-		    s 0
+		    s 6
 		    (- (string-length s)
 		       (string-length
-			"collects/repos-time-stamp/stamp.ss"))))))
+			"collects/repos-time-stamp/stamp.ss $"))))))