             (let ((buffer-read-only nil))
               (erase-buffer)
               (lusty-display-entries truncated-matches truncated-p)
+              (setq lusty--previous-printed-matches truncated-matches)
               (goto-char (point-min))))
 
           ;; If only our matches window is open,

  (lusty-update-matches-buffer))

(defun lusty-sort-by-fuzzy-score (strings abbrev)
  ; STEVE case-sensitive when abbrev contains capital letter?
  (if (or (string= abbrev "")
          (string= abbrev "."))
      (sort strings 'string<)

  "Launch the file/directory mode of LustyExplorer"
  (interactive)
  (let* ((lusty--active-mode :file-explorer)
         (lusty--ignored-extensions
          (mapcar (lambda (ext) (concat (regexp-quote ext) "$"))
                  completion-ignored-extensions))
         (file (lusty--run 'read-file-name)))
