diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index 1d8f5a9fe49fab451ad0debb785e0d2a75ae2f6d..f32d583beae6c67e995a84e776d9072cfa769857 100644
--- a/tools/worldbuild.lisp
+++ b/tools/worldbuild.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.17 1993/01/15 18:18:11 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.17.1.1 1993/01/28 12:53:21 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -52,9 +52,11 @@
     "target:code/type-boot"
     "target:code/struct"
     "target:code/error"
-    "target:compiler/type"
+    "target:code/typedef"
+    "target:code/class"
+    "target:code/type"
     "target:compiler/generic/vm-type"
-    "target:compiler/type-init"
+    "target:code/type-init"
 
     "target:code/defstruct"
     "target:compiler/proclaim"
diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 1df97c741daaf4fd9040bcabc1c63bb9b1abde07..181017a8a11d30cfe1f1367aa0b77a88ec12d2db 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.47 1992/12/16 10:57:11 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.47.1.1 1993/01/28 12:56:54 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -83,9 +83,11 @@
 ;;; recurse.
 (defvar *original-%deftype* #'lisp::%deftype)
 (setf (fdefinition 'lisp::%deftype) #'list)
-(comf "target:compiler/type")
+(comf "target:code/typedefs")
+(comf "target:code/class")
+(comf "target:code/type")
 (comf "target:compiler/generic/vm-type")
-(comf "target:compiler/type-init")
+(comf "target:code/type-init")
 (comf "target:code/pred")
 (setf (fdefinition 'lisp::%deftype) *original-%deftype*)