diff --git a/scheme/fs-object.scm b/scheme/fs-object.scm
index e94ac88..723afc4 100644
--- a/scheme/fs-object.scm
+++ b/scheme/fs-object.scm
@@ -21,7 +21,7 @@
       (lambda (condition more)
         (format #t "condition while fs-object-info: ~a"  condition)
         #f)
-      (file-info (combine-path path name))))))
+      (file-info (combine-path path name) #f)))))
 
 (define-record-discloser :fs-object
   (lambda (r)