From c319e62e3e6e6d87af8bd6cc26ab7b306e5074bc Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 21 May 2006 10:36:39 +0000
Subject: [PATCH] simplify paths when packing

svn: r3000
---
 collects/setup/pack.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/setup/pack.ss b/collects/setup/pack.ss
index f3e4ea00bb..c4cac69640 100644
--- a/collects/setup/pack.ss
+++ b/collects/setup/pack.ss
@@ -127,7 +127,8 @@
                     (quote ,collections)))
              fileout)
       (newline fileout)
-      (for-each (lambda (path) (mztar path fileout filter file-mode))
+      (for-each (lambda (path)
+                  (mztar (simplify-path path #f) fileout filter file-mode))
                 paths)
       (close-output-port fileout)
       (thread-wait thd)))