*** /tmp/tramp.el.~1~	Fri Jun 27 09:03:41 2008
--- /tmp/tramp.el	Fri Jun 27 09:03:41 2008
***************
*** 2675,2683 ****
  
  (defun tramp-handle-file-modes (filename)
    "Like `file-modes' for Tramp files."
!   (when (file-exists-p filename)
!     (tramp-mode-string-to-int
!      (nth 8 (file-attributes filename)))))
  
  (defun tramp-handle-file-directory-p (filename)
    "Like `file-directory-p' for Tramp files."
--- 2675,2684 ----
  
  (defun tramp-handle-file-modes (filename)
    "Like `file-modes' for Tramp files."
!   (let ((truename (or (file-truename filename) filename)))
!     (when (and (stringp truename) (file-exists-p truename))
!       (tramp-mode-string-to-int
!        (nth 8 (file-attributes truename))))))
  
  (defun tramp-handle-file-directory-p (filename)
    "Like `file-directory-p' for Tramp files."