diff --git a/collects/compiler/decompile.rkt b/collects/compiler/decompile.rkt
index 9341f939c1..645d294e68 100644
--- a/collects/compiler/decompile.rkt
+++ b/collects/compiler/decompile.rkt
@@ -185,7 +185,9 @@
                                      (if (path? p)
                                          (let ([d (current-load-relative-directory)])
                                            (path->string (if d
-                                                             (find-relative-path d p #:more-than-root? #t)
+                                                             (find-relative-path (simplify-path d #t)
+                                                                                 (simplify-path p #f) 
+                                                                                 #:more-than-root? #t)
                                                              p)))
                                          p)))
                          (if (eq? 0 (car req))