diff --git a/tools/compile-all b/tools/compile-all
index 25ab4395781ed5dcadbae61464c7424a6116ace2..19b59014f8b59cd3d001845b6e0d1534015d3181 100755
--- a/tools/compile-all
+++ b/tools/compile-all
@@ -2,7 +2,7 @@
 #
 #  compile-all -- script to compile everything
 #
-# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.3 1991/12/12 02:35:37 wlott Exp $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.4 1992/02/05 19:01:20 wlott Exp $
 
 if ($#argv) then
 	set subdir = $argv[1]
@@ -28,6 +28,7 @@ endif
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (comf "target:tools/setup")
 (comf "target:tools/rcs")
@@ -37,6 +38,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/worldcom")
@@ -47,6 +49,7 @@ $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
 (setf (search-list "clx:") '("target:clx/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/clxcom")
@@ -56,6 +59,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/hemcom")
@@ -65,6 +69,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/comcom")
@@ -74,6 +79,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (setf *gc-verbose* nil)
 (load "target:tools/pclcom")
 (quit)