diff --git a/code/filesys.lisp b/code/filesys.lisp
index 44c4aa60b3b4ccdc3ebc0f52eb150859e2d149c9..e28f4e069d2312e0b2be7052bcf393400083466b 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.57 2000/08/23 15:52:46 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.58 2000/08/24 14:22:56 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -869,14 +869,15 @@
 ;;; DIRECTORY  --  public.
 ;;; 
 (defun directory (pathname &key (all t) (check-for-subdirs t)
-			   (follow-links t))
+			   (truenamep t) (follow-links t))
   "Returns a list of pathnames, one for each file that matches the given
    pathname.  Supplying :ALL as nil causes this to ignore Unix dot files.  This
-   never includes Unix dot and dot-dot in the result.  If :FOLLOW-LINKS is NIL,
-   then symblolic links in the result are not expanded.  This is not the
+   never includes Unix dot and dot-dot in the result.  If :TRUENAMEP is NIL,
+   then symblolic links in the result are not expanded which is not the
    default because TRUENAME does follow links, and the result pathnames are
    defined to be the TRUENAME of the pathname (the truename of a link may well
-   be in another directory.)"
+   be in another directory.) If FOLLOW-LINKS is NIL then symbolic links are
+   not followed."
   (let ((results nil))
     (enumerate-search-list
 	(pathname (merge-pathnames pathname
@@ -897,7 +898,7 @@
 					   :directory))
 				  (concatenate 'string name "/")
 				  name)))
-		    (if follow-links (truename name) (pathname name))))
+		    (if truenamep (truename name) (pathname name))))
 	      (sort (delete-duplicates results :test #'string=) #'string<)))))
 
 
@@ -919,7 +920,7 @@
 
 (defun print-directory-verbose (pathname all return-list)
   (let ((contents (directory pathname :all all :check-for-subdirs nil
-			     :follow-links nil))
+			     :truenamep nil))
 	(result nil))
     (format t "Directory of ~A :~%" (namestring pathname))
     (dolist (file contents)
@@ -994,7 +995,7 @@
 	(names ())
 	(cnt 0)
 	(max-len 0)
-	(result (directory pathname :all all :follow-links nil)))
+	(result (directory pathname :all all :truenamep nil)))
     (declare (list names) (fixnum max-len cnt))
     ;;
     ;; Get the data.
@@ -1123,7 +1124,7 @@
 			       ignore-types)
   (let ((files (directory (complete-file-directory-arg pathname defaults)
 			  :check-for-subdirs nil
-			  :follow-links nil)))
+			  :truenamep nil)))
     (cond ((null files)
 	   (values nil nil))
 	  ((null (cdr files))
@@ -1191,7 +1192,7 @@
    We look in the directory specified by Defaults as well as looking down
    the search list."
   (directory (complete-file-directory-arg pathname defaults)
-	     :follow-links nil
+	     :truenamep nil
 	     :check-for-subdirs nil))
 
 
diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index 0a10ccda31e1362d78be63022ca1fe27be559fce..eaf8c9155202f67ffa62dd25dc0ef27b6a79bc46 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.88 2000/07/10 06:31:11 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.89 2000/08/24 14:23:02 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1044,7 +1044,7 @@
   t)
 
 (defknown directory (pathnamelike &key (:check-for-subdirs t) (:all t)
-				  (:follow-links t))
+				  (:truenamep t) (:follow-links t))
   list (flushable))
 
 
diff --git a/docs/cmu-user/cmu-user.tex b/docs/cmu-user/cmu-user.tex
index 6bfe1ae512d17867a9c095811cfc027cb8056c40..e00ccd3b9ff931b44e572d51fd7d1c72ee9cba18 100644
--- a/docs/cmu-user/cmu-user.tex
+++ b/docs/cmu-user/cmu-user.tex
@@ -2712,7 +2712,7 @@ matches.)  Filesystem operations treat \kwd{wild-inferiors} the same as\
 \kwd{wild}.
 
 \begin{defun}{}{directory}{\var{wildname} \keys{\kwd{all} \kwd{check-for-subdirs}}
-    \morekeys{\kwd{follow-links}}}
+    \kwd{truenamep} \morekeys{\kwd{follow-links}}}
   
   The keyword arguments to this \clisp{} function are a CMU extension.
   The arguments (all default to \code{t}) have the following
@@ -2724,10 +2724,13 @@ matches.)  Filesystem operations treat \kwd{wild-inferiors} the same as\
   \item[\kwd{check-for-subdirs}] Test whether files are directories,
     similar to ``\code{ls -F}''.
     
-  \item[\kwd{follow-links}] Call \code{truename} on each file, which
+  \item[\kwd{truenamep}] Call \code{truename} on each file, which
     expands out all symbolic links.  Note that this option can easily
     result in pathnames being returned which have a different
     directory from the one in the \var{wildname} argument.
+
+  \item[\kwd{follow-links}] Follow symbolic links when searching for
+    matching directories.
   \end{Lentry}
 \end{defun}