diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index fe997a7c7a7bdde96d3504d2365893e1bbd69cfc..60f0afc36cce7c13e669349a7f4303ea6a8e0476 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -1125,7 +1125,7 @@ optionally keeping some of the most recent old versions."
       (let ((*ignore-wildcards* t))
 	(mapcar #'(lambda (name)
 		    (let ((name (if (and check-for-subdirs
-					 (eq (unix:unix-file-kind name)
+					 (eq (unix:unix-file-kind name (not follow-links))
 					     :directory))
 				    (concatenate 'string name "/")
 				    name)))