diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index cc19018768..5321480ede 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -311,7 +311,8 @@ profile todo:
                       (λ () (open-and-highlight-in-file src-to-display)))
                 (write-special note (current-error-port))
                 (display #\space (current-error-port))))
-            (display (path->string (find-relative-path (current-directory) src))
+            (display (path->string (find-relative-path (current-directory)
+                                                       (normalize-path src)))
                      (current-error-port))
             (let ([line (srcloc-line src-to-display)]
                   [col (srcloc-column src-to-display)]
diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index 62f1efda19..d0b89b2627 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -1338,7 +1338,7 @@ module browser threading seems wrong.
                                   (if (equal? f1 f2)
                                       (loop (cdr p1) (cdr p2) (+ i 1))
                                       i))])))]
-                   [exp (reverse (explode-path fn))]
+                   [exp (reverse (explode-path (normalize-path fn)))]
                    [other-exps
                     (filter
                      (λ (x) (and x 
@@ -1346,7 +1346,7 @@ module browser threading seems wrong.
                      (map (λ (other-tab) 
                             (let ([fn (send (send other-tab get-defs) get-filename)])
                               (and fn 
-                                   (reverse (explode-path fn)))))
+                                   (reverse (explode-path (normalize-path fn))))))
                           tabs))]
                    [size
                     (let loop ([other-exps other-exps]