diff --git a/scsh/test/file-system-tests.scm b/scsh/test/file-system-tests.scm
index 410c3b1..a07df7a 100644
--- a/scsh/test/file-system-tests.scm
+++ b/scsh/test/file-system-tests.scm
@@ -516,7 +516,7 @@
 			 (let ((result (func (string-append
 					      fname2 "/" fname))))
 			   (delete-filesys-object fname2)
-			   (equal? result 'not-directory))))
+			   (equal? result 'no-directory))))
 	     "file" "file2")
   ;; nonexistent
   (add-test! (symbol-append name "-nonexistent") 'file-system