1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index 1e9788487bc..40f601a7738 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -927,7 +927,7 @@ state."
              (save-excursion 
                (set-buffer (find-file-noselect "CVS/Root" t))
                (and (looking-at ":ext:") (delete-char 5))
-               (buffer-string))
+               (prog1 (buffer-string) (not-modified) (kill-buffer nil)))
            nil)))
     (concat
      ;; FIXME: see how PCL-CVS gets the data to print all these