diff --git a/lisp/vc/add-log.el b/lisp/vc/add-log.el
index 7f0dbfbc46e..31418540b59 100644
--- a/lisp/vc/add-log.el
+++ b/lisp/vc/add-log.el
@@ -326,9 +326,7 @@ CHANGELOGS is a list in the form returned by
                (insert ":\n")
              (insert " ")
              (cl-loop for def in defuns
-                      do (progn
-                           (insert "(" def "):\n")
-                           (log-edit-fill-entry))))))
+                      do (insert "(" def "):\n")))))
 
 (defun change-log-find-file ()
   "Visit the file for the change under point."