diff --git a/collects/repo-time-stamp/stamp.rkt b/collects/repo-time-stamp/stamp.rkt
index 726d99d50e..32000ec195 100644
--- a/collects/repo-time-stamp/stamp.rkt
+++ b/collects/repo-time-stamp/stamp.rkt
@@ -35,7 +35,7 @@
       (let* ([x (x)]
              [m (and (string? x) (regexp-match rx:secs+id x))]
              [d (and m (seconds->date (string->number (cadr m))))]
-             [id (and m (substring (caddr m) 0 10))]
+             [id (and m (caddr m))]
              [how (and m (cadddr m))])
         (define (pad02 f) (let ([n (f d)]) (if (< n 10) (format "0~a" n) n)))
         (and d (format "~a-~a-~a(~a/~a)"