Index: /branches/working-0711/ccl/library/core-files.lisp
===================================================================
--- /branches/working-0711/ccl/library/core-files.lisp	(revision 13387)
+++ /branches/working-0711/ccl/library/core-files.lisp	(revision 13388)
@@ -130,5 +130,5 @@
                        for start = (1+ (position #\newline string :start header-pos)) then (1+ end)
                        for end = (or (position #\newline string :start start) (length string))
-                       while (and (< start end) (eql #\space (aref string start)))
+                       while (and (< start end) (find (aref string start) " 123456789"))
                        nconc
                        (multiple-value-bind (name address filepos size)