   "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) ?.))
+               `(eq (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 (char-equal (aref path last) ?/) ; <-- FIXME nonportable?
        (progn
          ;; Directory
          (put-text-property 0 last 'face lusty-directory-face path)

         (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)
