From c3f876d2f7760c0b1ca8b63736334f48db34ef80 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 5 Sep 2015 14:09:05 -0600
Subject: [PATCH] fix bug in mashaling paths

The change in commit fb8e08a2ac could lose part of a relative path.
---
 racket/src/racket/src/file.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/file.c b/racket/src/racket/src/file.c
index 7faa4bde50..38666fa394 100644
--- a/racket/src/racket/src/file.c
+++ b/racket/src/racket/src/file.c
@@ -5679,7 +5679,7 @@ Scheme_Object *scheme_extract_relative_to(Scheme_Object *obj, Scheme_Object *dir
 
     while (SCHEME_PAIRP(oe)) {
       if (cache) {
-        obj = scheme_make_pair(to_bytes(SCHEME_CAR(oe)), scheme_null);
+        obj = scheme_make_pair(to_bytes(SCHEME_CAR(oe)), obj);
       } else {
         a[0] = obj;
         a[1] = SCHEME_CAR(oe);