Eliminate random error that occurs when file is missing.

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index bae17ebe139dd507051d64219fa52bb490add2a5..277ebad629231d3db95157c9a1347d6e1b35cf4d 100644 (file)
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: tagutl.scm,v 1.53 1994/01/10 19:34:14 cph Exp $
+;;;    $Id: tagutl.scm,v 1.54 1994/01/14 00:43:39 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -343,7 +343,7 @@ command."
                                'TAGS-LOOP-MODIFIED-TICK
                                (buffer-modified-tick buffer))
                   buffer)))))
-      (message "Scanning file " (->namestring (buffer-truename buffer)) "...")
+      (message "Scanning file " (->namestring (buffer-pathname buffer)) "...")
       (select-buffer buffer)
       (set-current-point! (buffer-start buffer))
       (set! tags-loop-current-buffer buffer))