*** /tmp/tramp.el	Mon Jun 23 12:20:57 2008
--- /tmp/tramp.el20502jTz	Mon Jun 23 12:20:57 2008
***************
*** 6613,6621 ****
    (unless (stringp (nth 8 attr))
      (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
    ;; Convert directory indication bit.
!   (if (string-match "^d" (nth 8 attr))
!       (setcar attr t)
!     (if (and (listp (car attr)) (stringp (caar attr))
  	     (string-match ".+ -> .\\(.+\\)." (caar attr)))
  	(setcar attr (match-string 1 (caar attr)))
        (setcar attr nil)))
--- 6613,6623 ----
    (unless (stringp (nth 8 attr))
      (setcar (nthcdr 8 attr) (tramp-file-mode-from-int (nth 8 attr))))
    ;; Convert directory indication bit.
!   (when (string-match "^d" (nth 8 attr))
!     (setcar attr t))
!   ;; Convert symlink from `tramp-handle-file-attributes-with-stat'.
!   (when (consp (car attr))
!     (if (and (stringp (caar attr))
  	     (string-match ".+ -> .\\(.+\\)." (caar attr)))
  	(setcar attr (match-string 1 (caar attr)))
        (setcar attr nil)))