diff --git a/collects/tests/mzscheme/filelib.ss b/collects/tests/mzscheme/filelib.ss
index 511ebac9d6..0c2cb4287a 100644
--- a/collects/tests/mzscheme/filelib.ss
+++ b/collects/tests/mzscheme/filelib.ss
@@ -41,7 +41,7 @@
 		(test kind values (cond
 				   [(link-exists? name) 'link]
 				   [(file-exists? name) 'file]
-				   [(dir-exists? name) 'dir]
+				   [(directory-exists? name) 'dir]
 				   [else '???]))
 		(when (member name '("filelib-link.ss" "loop-link"))
 		  (test kind name 'link))