(cvs-mode-add-change-log-entry-other-window): Fix minor bug.

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index eea0e541043fe41e65f2eaa9f0f2197f3e381b41..a7683ce371e3b3d389c80981bed15d3141ea3003 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -2115,8 +2115,8 @@ With prefix argument, prompt for cvs flags."
   "Add a ChangeLog entry in the ChangeLog of the current directory."
   (interactive)
   (dolist (fi (cvs-mode-marked nil nil))
-    (let ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
-         (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
+    (let* ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
+          (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
       (kill-local-variable 'change-log-default-name)
       (save-excursion (add-change-log-entry-other-window)))))