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))))