diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp
index 674884488735fc6c035dddb722ed2c3d2a9a8c99..c8ebfe88905cd943806162d0e7f53ffe76cc660e 100644
--- a/uiop/configuration.lisp
+++ b/uiop/configuration.lisp
@@ -352,10 +352,10 @@ returns pathnames for directories that contain all of the configuration informat
      `(,(config-home-pathname app more)
        ,@(config-search-pathnames app more))))
 
-  ;; FIXME: AFAICT although this says "find FILE," it is often used to find a DIRECTORY.
   (defun find-preferred-file (files &key (direction :input))
     "Find first file in the list of FILES that exists (for direction :input or :probe)
-or just the first one (for direction :output or :io)."
+or just the first one (for direction :output or :io).
+    Note that when we say \"file\" here, the files in question may be directories."
     (find-if (ecase direction ((:probe :input) 'probe-file*) ((:output :io) 'identity)) files))
 
   (defun find-data-pathname (&optional app more (direction :input))