diff --git a/lisp/loadup.el b/lisp/loadup.el
index 3e87f4811df..6748c0a0750 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -103,7 +103,7 @@
       ;; During bootstrapping the byte-compiler is run interpreted
       ;; when compiling itself, which uses a lot more stack
       ;; than usual.
-      (setq max-lisp-eval-depth (max max-lisp-eval-depth 3400))))
+      (setq max-lisp-eval-depth (max max-lisp-eval-depth 4000))))
 
 (message "Using load-path %s" load-path)