From cde0dc2566344d1c3db1e64a97f2386cf702099e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 23 Sep 2008 13:56:47 +0000 Subject: [PATCH] svn: r11843 --- collects/setup/private/omitted-paths.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/setup/private/omitted-paths.ss b/collects/setup/private/omitted-paths.ss index 2de73b4490..2ff28474a2 100644 --- a/collects/setup/private/omitted-paths.ss +++ b/collects/setup/private/omitted-paths.ss @@ -43,7 +43,7 @@ (if (eof-object? x) (reverse r) (let* ([x (and (list? x) (= 7 (length x)) (list-ref x 4))] - [x (and (bytes? x) (bytes->path x))]) + [x (and (bytes? x) (simplify-path (bytes->path x)))]) (loop (if x (cons x r) r))))))))))))) ;; if `x' has `y' as a prefix, return the tail,