diff --git a/bootfiles/18d/boot10.lisp b/bootfiles/18d/boot10.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..974fa4def332190ac29ea254b4fdc7a3229d5432
--- /dev/null
+++ b/bootfiles/18d/boot10.lisp
@@ -0,0 +1,34 @@
+;;;;
+;;;; Boot file for the new/changed static symbols LISP::*CMUCL-LIB*
+;;;; and LISP::*CMUCL-CORE-PATH* (CMUCL_LIB and CMUCL_CORE_PATH in
+;;;; the C runtime).
+;;;;
+
+;;;
+;;; This is the same function as in tools/setup.lisp.  It is here
+;;; because setup.lisp is loaded after bootstrap.lisp in pmai's
+;;; build scripts.
+;;;
+(defun vmdir (f)
+  (merge-pathnames
+   (make-pathname :directory nil :defaults f)
+   (merge-pathnames
+    (cond ((c:target-featurep :pmax) "mips/")
+	  ((c:target-featurep :rt) "rt/")
+	  ((c:target-featurep :hppa) "hppa/")
+	  ((c:target-featurep :sparc) "sparc/")
+	  ((c:target-featurep :x86) "x86/")
+	  ((c:target-featurep :alpha) "alpha/")
+	  ((c:target-featurep :sgi) "mips/")
+	  ((c:target-featurep :ppc) "ppc/")
+	  (t
+	   (error "What machine is this?")))
+    (make-pathname :directory (pathname-directory f)))))
+
+;;;
+;;; Load parms.lisp into the compiling Lisp so that it writes the new
+;;; symbols to internals.h during genesis.
+;;;
+(load (vmdir "target:compiler/parms"))
+
+;;;; end of boot10.lisp