diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index 29165252fe9..f34684125e0 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-30  Magnus Henoch  <mange@freemail.hu>
+
+	* cl.texi (Porting Common Lisp): Fix parenthesis order in example.
+
 2008-09-30  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc.texi (User Defined Units): Mention how to enter optional display
diff --git a/doc/misc/cl.texi b/doc/misc/cl.texi
index 60a1e055f3d..b31fce71921 100644
--- a/doc/misc/cl.texi
+++ b/doc/misc/cl.texi
@@ -5153,7 +5153,7 @@ Emacs Lisp:
         collect (if flag x (funcall func x))))
 
 (defun add-odd-elements (list x)
-  (map-odd-elements (lambda (a) (+ a x))) list)
+  (map-odd-elements (lambda (a) (+ a x)) list))
 @end example
 
 @noindent