diff --git a/doc/lispref/compile.texi b/doc/lispref/compile.texi
index 00602198da5..08e824d2781 100644
--- a/doc/lispref/compile.texi
+++ b/doc/lispref/compile.texi
@@ -334,8 +334,8 @@ If you have a constant that needs some calculation to produce,
 @code{eval-when-compile} can do that at compile-time.  For example,
 
 @lisp
-(defvar my-regexp
-  (eval-when-compile (regexp-opt '("aaa" "aba" "abb"))))
+(defvar gauss-schoolboy-problem
+  (eval-when-compile (apply #'+ (number-sequence 1 100))))
 @end lisp
 
 @cindex macros, at compile time