diff --git a/scsh/fileinfo.scm b/scsh/fileinfo.scm
index a18440d..e32745c 100644
--- a/scsh/fileinfo.scm
+++ b/scsh/fileinfo.scm
@@ -150,37 +150,37 @@
 
 (define (file-info-to-fname/fd/port predicate)
   (lambda (fname/fd/port . maybe-chase?)
-    (apply file-info fname/fd/port maybe-chase?)))
+    (predicate (apply file-info fname/fd/port maybe-chase?))))
 
 (define (file-info-directory? file-info)
-  (eq? 'directory (file-type file-info)))
+  (eq? 'directory (file-info:type file-info)))
 
 (define file-directory? 
   (file-info-to-fname/fd/port file-info-directory?))
 
 (define (file-info-fifo? file-info)
-  (eq? 'fifo (file-type file-info)))
+  (eq? 'fifo (file-info:type file-info)))
 
 (define file-fifo? (file-info-to-fname/fd/port file-info-fifo?))
 
 (define (file-info-regular? file-info)
-  (eq? 'regular (file-type file-info)))
+  (eq? 'regular (file-info:type file-info)))
 
 (define file-regular? (file-info-to-fname/fd/port file-info-regular?))
 
 (define (file-info-socket? file-info)
-  (eq? 'socket (file-type file-info)))
+  (eq? 'socket (file-info:type file-info)))
 
 (define file-socket? (file-info-to-fname/fd/port file-info-socket?))
 
 (define (file-info-special? file-info)
-  (let ((type (file-type file-info)))
+  (let ((type (file-info:type file-info)))
     (or (eq? 'block-special type) (eq? 'char-special type))))
 
 (define file-special? (file-info-to-fname/fd/port file-info-special?))
 
 (define (file-info-symlink? file-info)  
-  (eq? 'symlink (file-type file-info)))
+  (eq? 'symlink (file-info:type file-info)))
 
 (define (file-symlink? fd/port/fname) ; No MAYBE-CHASE?, of course.
   (file-info-symlink? (file-info fd/port/fname #f)))
\ No newline at end of file