          (file-portion (file-name-nondirectory path))
          (files
           (and dir
+               ; STEVE measure the difference
+               ;  - for LM-score, may be better to not have slash
                ; NOTE: directory-files is quicker but
                ;       doesn't append slash for directories.
                ;(directory-files dir nil nil t)

  "Return FILES with './' removed and hidden files if FILE-PORTION
does not begin with '.'."
  (macrolet ((leading-dot-p (str)
               `(char-equal (string-to-char ,str) ?.))
             (pwd-p (str)
               `(string= (directory-file-name ,str) "."))
             (ignored-p (name)

  (let ((last (1- (length path))))
    ;; Note: shouldn't get an empty path, so for performance
    ;; I'm not going to check for that case.
    (if (eq (aref path last) ?/) ; <-- FIXME nonportable?
        (progn
          ;; Directory
          (put-text-property 0 last 'face lusty-directory-face path)
