diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c9180c3e9a..51a7a2145d2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,7 @@
-2000-01-09 Sun  Jari Aalto  <jari.aalto@poboxes.com>
+2000-01-11 Sun  Jari Aalto  <jari.aalto@poboxes.com>
+
+	* add-log.el (add-change-log-entry): Insert version number
+	if having found a current function.
 
 	* add-log.el (add-log-current-defun): Call
 	`add-log-current-defun-function'.  Try matches at level 0 and
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 30802c4155d..bb911904ad6 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -486,7 +486,9 @@ non-nil, otherwise in local time."
       (if (not (save-excursion
 		 (beginning-of-line 1)
 		 (looking-at "\\s *\\(\\*\\s *\\)?$")))
-	  (insert ": ")))))
+	  (insert ": "
+		  (if version
+		      (concat version " ") ))))))
 
 ;;;###autoload
 (defun add-change-log-entry-other-window (&optional whoami file-name)