diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 5f6b56e5f00..ddfc7e9a7b3 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -304,14 +304,16 @@ FILE is a file or a directory name.
 
 This function heeds `dired-actual-switches'."
   (set-buffer buffer)
-  (insert find-lisp-line-indent
-          (find-lisp-format
-           (propertize file 'dired-filename t)
-           (file-attributes file 'string)
-           (or (and dired-actual-switches
-                    (split-string-and-unquote dired-actual-switches))
-               (list ""))
-           nil)))
+  (let ((pt (point)))
+    (insert find-lisp-line-indent
+            (find-lisp-format
+             (propertize file 'dired-filename t)
+             (file-attributes file 'string)
+             (or (and dired-actual-switches
+                      (split-string-and-unquote dired-actual-switches))
+                 (list ""))
+             nil))
+    (dired-insert-set-properties pt (point))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Lifted from ls-lisp. We don't want to require it, because that