diff --git a/scsh/fileinfo.scm b/scsh/fileinfo.scm
index e502428..c2d7afb 100644
--- a/scsh/fileinfo.scm
+++ b/scsh/fileinfo.scm
@@ -40,7 +40,7 @@
   (let ((uid (user-effective-uid)))
     (with-errno-handler ((err data)
 			 ((errno/acces) 'search-denied)
-			 ((errno/notdir) 'not-directory)
+			 ((errno/notdir) 'no-directory)
 
 			 ;; If the file doesn't exist, we usually return
 			 ;; 'nonexistent, but we special-case writability