diff --git a/collects/meta/drdr/analyze.ss b/collects/meta/drdr/analyze.ss index 766cd993b0..f149a2bc4e 100644 --- a/collects/meta/drdr/analyze.ss +++ b/collects/meta/drdr/analyze.ss @@ -148,7 +148,7 @@ (and (for/or ([p (in-list ps)]) ; XXX This squelch should be disabled if the committer changed this file ; XXX But even then it can lead to problems - (not (path-random? (build-path (revision-trunk-dir cur-rev) p)))) + (not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1))))) (not (symbol=? id 'changes)))))) (unless (andmap zero? nums) (send-mail-message "drdr@plt-scheme.org"