Index: /branches/working-0711/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 7734)
+++ /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 7735)
@@ -289,6 +289,8 @@
 
 
-;;; Returns: (values t mode size mtime inode uid) on success,
-;;;          (values nil nil nil nil nil nil) otherwise
+;;; Returns: (values t mode size mtime inode uid blksize) on success,
+;;;          (values nil nil nil nil nil nil nil) otherwise
+;;; NAME should be a "native namestring", e.g,, have all lisp pathname
+;;; escaping removed.
 (defun %stat (name &optional link-p)
   (rlet ((stat :stat))
@@ -314,6 +316,5 @@
 
 (defun %unix-file-kind (path &optional check-for-link)
-  (%file-kind (nth-value 1 (%stat (native-translated-namestring path)
-                                  check-for-link))))
+  (%file-kind (nth-value 1 (%stat (native-translated-namestring path) check-for-link))))
 
 (defun %unix-fd-kind (fd)