diff --git a/collects/tests/racket/path.rktl b/collects/tests/racket/path.rktl
index b101e313e9..45c9f571dc 100644
--- a/collects/tests/racket/path.rktl
+++ b/collects/tests/racket/path.rktl
@@ -171,9 +171,11 @@
 	(or (equal? l (map bytes->path '(#"deep" #"tmp8x")))
 	    (equal? l (map bytes->path '(#"tmp8x" #"deep"))))))
 (test #t 'directory-list 
-      (let ([l (directory-list "down" #:build? #t)])
-	(or (equal? l (map bytes->path '(#"down/deep" #"down/tmp8x")))
-	    (equal? l (map bytes->path '(#"down/tmp8x" #"down/deep"))))))
+      (let ([l (directory-list "down" #:build? #t)]
+            [l2 (list (build-path "down" "deep")
+                      (build-path "down" "tmp8x"))])
+        (or (equal? l l2)
+            (equal? l (reverse l2)))))
 (test (list (bytes->path #"tmp7x")) directory-list deepdir)
 
 (test #f delete-directory/tf deepdir)