diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 8f1826b6603..ea6910c60fc 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -734,9 +734,9 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
    :eval (ensure-list '(1 2 3))
    :eval (ensure-list '(1 . 2)))
   (ensure-proper-list
-   :eval (ensure-list "foo")
-   :eval (ensure-list '(1 2 3))
-   :eval (ensure-list '(1 . 2)))
+   :eval (ensure-proper-list "foo")
+   :eval (ensure-proper-list '(1 2 3))
+   :eval (ensure-proper-list '(1 . 2)))
   "Operations on Lists"
   (append
    :eval (append '("foo" "bar") '("zot")))