Manual says FILE-NOT-READABLE? and brothers return 'NO-DIRECTORY

if some dir in the path isn't there; code returned 'NOT-DIRECTORY.
Manual was right; code was wrong.
    -Olin

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