diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1b6694d069..38ccf0197d3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-20  Sam Steingold  <sds@gnu.org>
+
+	* pcvs.el (cvs-examine): Respect `find-file-visit-truename'.
+
 2003-04-20  Glenn Morris  <gmorris@ast.cam.ac.uk>
 
 	* which-func.el (which-func-modes): Add f90-mode.
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 840e39c037e..0565e7fce13 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -14,7 +14,7 @@
 ;;	(Jari Aalto+mail.emacs) jari.aalto@poboxes.com
 ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu
 ;; Keywords: CVS, version control, release management
-;; Revision: $Id: pcvs.el,v 1.49 2003/03/16 01:09:05 monnier Exp $
+;; Revision: $Id: pcvs.el,v 1.50 2003/03/19 14:34:24 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -964,6 +964,7 @@ Optional argument NOSHOW if non-nil means not to display the buffer."
 		     (cvs-flags-query 'cvs-update-flags "cvs -n update flags")))
   (when (eq flags t)
     (setf flags (cvs-flags-query 'cvs-update-flags nil 'noquery)))
+  (when find-file-visit-truename (setq directory (file-truename directory)))
   (cvs-cmd-do "update" directory flags nil
 	      (> (prefix-numeric-value current-prefix-arg) 8)
 	      :cvsargs '("-n")