diff --git a/lib/chibi/filesystem.scm b/lib/chibi/filesystem.scm
index aabb1742..f596bb2f 100644
--- a/lib/chibi/filesystem.scm
+++ b/lib/chibi/filesystem.scm
@@ -55,7 +55,7 @@
         (let ((d (opendir file)))
           (if (not d)
               acc
-              (let lp ((acc acc))
+              (let lp ((acc (down file acc)))
                 (let ((e (readdir d)))
                   (cond
                    (e
@@ -63,7 +63,7 @@
                       (if (member f '("." ".."))
                           (lp acc)
                           (let ((path (string-append file "/" f)))
-                            (lp (fold path (down path acc)))))))
+                            (lp (fold path acc))))))
                    (else
                     (closedir d)
                     (up file acc))))))))
diff --git a/lib/chibi/filesystem.sld b/lib/chibi/filesystem.sld
index c93642d5..c660f0a3 100644
--- a/lib/chibi/filesystem.sld
+++ b/lib/chibi/filesystem.sld
@@ -14,7 +14,7 @@
           create-directory create-directory*
           current-directory change-directory with-directory
           open open-pipe make-fifo
-          file-status
+          file-status               file-link-status
           file-device               file-inode
           file-mode                 file-num-links
           file-owner                file-group