From 4cf824cbb06d1fbdb579d0611176f1a49f236511 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Tue, 3 Mar 2009 19:33:09 +0000 Subject: [PATCH] fix substring svn: r13920 --- collects/repos-time-stamp/stamp.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/repos-time-stamp/stamp.ss b/collects/repos-time-stamp/stamp.ss index 8aab08c2e7..7341e33be3 100644 --- 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 $"))))))