diff --git a/lisp/dired.el b/lisp/dired.el
index 3146511305d..75dfbc4b9a0 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3436,7 +3436,8 @@ argument or confirmation)."
 	 (dired-format-columns-of-files
 	  (if (eq (car files) t) (cdr files) files))
 	 (remove-text-properties (point-min) (point-max)
-				 '(mouse-face nil help-echo nil)))))))
+				 '(mouse-face nil help-echo nil))
+	 (setq tab-line-format nil))))))
 
 (defun dired-format-columns-of-files (files)
   (let ((beg (point)))