diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss
index e4ae9cf2c3..7ff659b292 100644
--- a/collects/mred/private/path-dialog.ss
+++ b/collects/mred/private/path-dialog.ss
@@ -27,7 +27,7 @@
     (let ([l (map (lambda (s) (if (eq? / s) path-separator-re-str s)) strs)])
       (regexp (apply string-append l))))
   (define end-separators-re    (make-re "["/"]+$"))
-  (define initial-/dir-part-re (make-re "^["/"]*[^"/"]+"))
+  (define initial-/dir-part-re (make-re "^["/"]*([^"/"]+)"))
   (define initial-dir/-part-re (make-re "^.*?["/"]"))
 
   (define default-filters (if win? '(("Any" "*.*")) '(("Any" "*"))))
@@ -201,7 +201,7 @@
           (let loop ([i 0])
             (let ([m (regexp-match-positions initial-/dir-part-re dir i)])
               (when m
-                (send edit change-style path-up-delta (caar m) (cdar m))
+                (send edit change-style path-up-delta (caadr m) (cdadr m))
                 (send edit set-clickback (caar m) (cdar m)
                       (lambda _ (enter-text (substring dir 0 (cdar m)))))
                 (loop (cdar m)))))