From 52ca901576ca32c6fec6c9bab5688fbe86dcbea4 Mon Sep 17 00:00:00 2001
From: Jacob Matthews <jacobm@cs.uchicago.edu>
Date: Sat, 19 Apr 2008 18:19:18 +0000
Subject: [PATCH] better behavior in 'same case

svn: r9375
---
 collects/setup/unpack.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/setup/unpack.ss b/collects/setup/unpack.ss
index 56390d64e8..2485e627aa 100644
--- a/collects/setup/unpack.ss
+++ b/collects/setup/unpack.ss
@@ -112,7 +112,7 @@
     (cond
       [(null? v) 'same]
       [(and (pair? v) (symbol? (car v)) (symbol=? (car v) 'same))
-       'same]
+       (list 'same (apply build-path 'same (cdr v)))]
       [(and (pair? v) (string? (car v)))
        (let ([location (string->loc (car v))])
          (list location (apply build-path (cdr v))))]