diff --git a/collects/compiler/cm.ss b/collects/compiler/cm.ss
index 3ab9f034de..763f1f963c 100644
--- a/collects/compiler/cm.ss
+++ b/collects/compiler/cm.ss
@@ -25,7 +25,7 @@
 (define (get-deps code path)
   (filter-map (lambda (x)
                 (let ([r (resolve-module-path-index x path)])
-                  (and (path? x) (path->bytes x))))
+                  (and (path? r) (path->bytes r))))
               (append-map cdr (module-compiled-imports code))))
 
 (define (get-compilation-dir+name mode path)