diff --git a/lisp/subr.el b/lisp/subr.el
index 42706397674..87a06575de7 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -7343,7 +7343,7 @@ not a list, return a one-element list containing OBJECT."
 The MESSAGE form will be evaluated immediately, but the resulting
 string will be displayed only if BODY takes longer than TIMEOUT seconds.
 
-\(fn (timeout message) &rest body)"
+\(fn (TIMEOUT MESSAGE) &rest BODY)"
   (declare (indent 1))
   `(funcall-with-delayed-message ,(car args) ,(cadr args)
                                  (lambda ()