diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07343511379..5c62f586ace 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* add-log.el (add-log-current-defun): Fix thinko w.r.t derived-mode-p.
+
 2007-09-20  Glenn Morris  <rgm@gnu.org>
 
 	* textmodes/tex-mode.el (tex-validate-buffer): Use paragraph
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 3112a6e7667..546f87b4e4d 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -1016,7 +1016,7 @@ Has a preference of looking backwards."
 		((derived-mode-p 'texinfo-mode)
 		 (if (re-search-backward "^@node[ \t]+\\([^,\n]+\\)" nil t)
 		     (match-string-no-properties 1)))
-		((derived-mode-p '(perl-mode cperl-mode))
+		((derived-mode-p 'perl-mode 'cperl-mode)
 		 (if (re-search-backward "^sub[ \t]+\\([^({ \t\n]+\\)" nil t)
 		     (match-string-no-properties 1)))
 		;; Emacs's autoconf-mode installs its own