diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index a531eb996a067a86c7f447fc5b961023bb5f35ba..2670f818c47576edf66ca68cbbe5cce3a46828bb 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -932,7 +932,7 @@
 (defun %initial-function ()
   "Gives the world a shove and hopes it spins."
   (setq *already-maybe-gcing* t)
-  (setf *gc-inhibit* nil)
+  (setf *gc-inhibit* t)
   (setf *need-to-collect-garbage* nil)
   (%primitive print "In initial-function, and running.")