diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 860a758e75c..8fe4de83583 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -14842,7 +14842,7 @@ symbols in one function definition."
         (setq lengths-list
               (cons (count-words-in-defun) lengths-list)))
       (kill-buffer buffer)
-      lengths-list)))
+      lengths-list))))
 @end group
 @end smallexample