diff --git a/collects/tests/mzscheme/moddep.ss b/collects/tests/mzscheme/moddep.ss
index 718d73f4e3..47da1382db 100644
--- a/collects/tests/mzscheme/moddep.ss
+++ b/collects/tests/mzscheme/moddep.ss
@@ -116,7 +116,7 @@
 (test-cmp '(planet "x.ss" ("m" "z.plt" 2 (- 5))) '(planet "m/z:2:<=5/x.ss") (build-path "yikes"))
 (test-cmp '(planet "x.ss" ("m" "z.plt" 2 (7 99))) '(planet "m/z:2:7-99/x.ss") (build-path "yikes"))
 
-(test-cmp (string->path "./x.ss") "x.ss" (build-path 'same))
+(test-cmp (build-path 'same "x.ss") "x.ss" (build-path 'same))
 
 ;; Try path cases that don't fit UTF-8 (and therefore would go wrong as a string):
 (let ([dir (build-path (current-directory) (bytes->path #"\xFF"))])