diff --git a/tools/comcom.lisp b/tools/comcom.lisp
index 11b32b9d142be4680342013e23470fa8903f0c14..1f757a3b487167f0b5ec2e41715dfa72cf5ac7d2 100644
--- a/tools/comcom.lisp
+++ b/tools/comcom.lisp
@@ -1,9 +1,9 @@
-;;; -*- Package: User -*-
+;;; -*- Package: CL-USER -*-
 ;;;
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.55 2003/06/18 09:23:08 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.56 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -51,6 +51,8 @@
        (:external (declare (optimize-interface (safety 2) (debug 1))))))
 
 
+(setf lisp::*enable-package-locked-errors* nil)
+
 (comf "target:compiler/macros"
       :byte-compile #+bootstrap t #-bootstrap *byte-compile*)
 (when *load-stuff*
diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index 225f5a1fba06754fa075028eb61feaa72b6354e6..cbc114264b094fb64797a520f742baac968a873b 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,11 +3,12 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.31 2003/06/18 10:50:14 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.32 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 (in-package "CL-USER")
+(setf lisp::*enable-package-locked-errors* nil)
 
 (when (find-package "PCL")
   ;; Load the lisp:documentation functions.
diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp
index bc99b2d77ddc6a642304a0f3d325341caa9e02de..c37de3133053475129333ad6125e3632360d78b2 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.49 2003/05/23 13:34:04 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.50 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,6 +16,8 @@
 
 (in-package "LISP")
 
+(setf *enable-package-locked-errors* nil)
+
 (unless (fboundp 'genesis)
   (load "target:compiler/generic/new-genesis"))
 
diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 437361f449f7fa76f41f0165cb91d19288bd107c..88a43434dc0d4f83f21e46983470272ecd891517 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -1,4 +1,4 @@
-;;; -*- Package: USER -*-
+;;; -*- Package: CL-USER -*-
 ;;;
 ;;; **********************************************************************
 ;;; This code was written as part of the CMU Common Lisp project at
@@ -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.89 2003/06/18 11:07:40 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.90 2003/09/08 16:07:04 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -36,7 +36,8 @@
 	(declare (optimize (safety 2))))
        ((:and :external (:match "LIST"))
 	(declare (optimize (safety 1))))))
-(let ((*byte-compile-top-level* nil))
+(let ((*byte-compile-top-level* nil)
+      (lisp::*enable-package-locked-errors* nil))
 
 ;;; these guys need to be first.
 (comf "target:code/struct") ; For structures.