diff --git a/ls.scm b/ls.scm
index d173d7c..93d392b 100644
--- a/ls.scm
+++ b/ls.scm
@@ -61,7 +61,9 @@
 	     (file-directory? path #f)))           ;; or not
     (ls-directory path all? recursive? long? directory? flag? columns? port))
    (else
-    (ls-file (cons path (file-info path #f)) long? flag? port))))
+    (if (or long? flag?)                           ;; see LS-DIRECTORY for details
+	(ls-file (cons path (file-info path #f)) long? flag? port)
+	(ls-file (cons path #f) long? flag? port)))))
 
 (define (ls-directory directory all? recursive? long? directory? flag? columns? port)
 ; terminology: a FILE-NAME is the name of a file