From 26ddc5273fe4bc185c8f2eb83e4f0a9800bd9b93 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 8 Aug 2011 12:39:04 -0600 Subject: [PATCH] Mistake --- collects/meta/drdr/analyze.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/meta/drdr/analyze.rkt b/collects/meta/drdr/analyze.rkt index efba719e3f..01daae0128 100644 --- a/collects/meta/drdr/analyze.rkt +++ b/collects/meta/drdr/analyze.rkt @@ -198,7 +198,9 @@ (list (format " ~a" id) (for/list ([f (in-list paths)] [i (in-range ERROR-LIMIT)] - #:when (not (path-random? f))) + #:when (not (path-random? + (build-path (revision-trunk-dir cur-rev) + (substring (path->string* f) 1))))) (format " ~a" (path->url f))) "")))) "")