diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4b6e0ab083..b9557b89d73 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-06  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* play/animate.el: re-insert a reference to re-inserted function.
+
 2001-08-06  Gerd Moellmann  <gerd@gnu.org>
 
 	* help.el (describe-function-1): Use
diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index 24d8d73ce06..4b20e847616 100644
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -28,6 +28,8 @@
 ;; makes the string STRING appear starting at VPOS, HPOS
 ;; by having each letter swoop into place from random starting position.
 
+;; animate-birthday-present was the first application of this program.
+
 ;;; Code:
 
 ;;; STRING is the string to be displayed,
@@ -165,4 +167,3 @@ in the current window."
   (animate-string "to stay!" 19 34))
 
 ;;; animate.el ends here
-