--- a/lisp/prim/files.el	Mon Aug 13 09:51:18 2007 +0200
+++ b/lisp/prim/files.el	Mon Aug 13 09:52:19 2007 +0200
@@ -957,9 +957,9 @@
 	(error "%s is a directory." filename))
     (let* ((buf (get-file-buffer filename))
 ;	   (truename (abbreviate-file-name (file-truename filename)))
-;	   (number (nthcdr 10 (file-attributes truename)))
-	   (number (and buffer-file-truename
-			(nthcdr 10 (file-attributes buffer-file-truename))))
+	   (number (nthcdr 10 (file-attributes (file-truename filename))))
+;	   (number (and buffer-file-truename
+;			(nthcdr 10 (file-attributes buffer-file-truename))))
 ;	   ;; Find any buffer for a file which has same truename.
 ;	   (other (and (not buf) (find-buffer-visiting filename)))
            (error nil))