From 3cb3b9fa835824f6568261e202b08912093fe127 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 17 Feb 2011 12:25:36 -0600
Subject: [PATCH] fix a bug in PLTDRPAR

---
 collects/drracket/drracket.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/drracket/drracket.rkt b/collects/drracket/drracket.rkt
index df2b2fb46d..67c84307fc 100644
--- a/collects/drracket/drracket.rkt
+++ b/collects/drracket/drracket.rkt
@@ -88,11 +88,11 @@
       append
       (map
        (λ (x)
-         (define-values (base name dir) (split-path x))
          (define proc (get-info/full x))
          (if proc
              (map (λ (dirs)
-                    (apply build-path base
+                    (apply build-path 
+                           x
                            (if (list? dirs)
                                dirs
                                (list dirs))))