diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 03089dffb55..b38d502e8b1 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3027,16 +3027,14 @@ BODY is the backend specific code."
 			     (format
 			      "file-name-all-completions-%s"
 			      tramp-fnac-add-trailing-slash)
-			   ;; Mark symlinked directories.  Other
-			   ;; directories are already marked.
+			   ;; Mark directories, including symlinks to
+			   ;; directories.
 			   (mapcar
 			    (lambda (x)
 			      (let ((f (file-name-concat ,directory x)))
 				(if (and tramp-fnac-add-trailing-slash
 					 (not (string-suffix-p "/" x))
-					 (file-directory-p
-					  (if (file-symlink-p f)
-					      (file-truename f) f)))
+					 (file-directory-p f))
 				    (concat x "/") x)))
 			    ;; Some storage systems do not return "." and "..".
 			    (seq-union