From ad17026fa62b115566c2b17f7a45b0989e8a652e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 11 Oct 2005 15:39:20 +0000
Subject: [PATCH] Don't follow symbolic links

---
 scheme/fs-object.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)