diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index c58998640f811890cfad92c3c01e91ffc2d6a27f..3e5879d329409262f108b9b17271d9e1f861b708 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.105 2005/02/21 17:14:29 rtoy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.106 2006/10/29 10:08:42 cshapiro Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -86,26 +86,6 @@
 ;;;
 (maybe-byte-load "code:exports")
 
-;;; Temporarily add OLD-XX nicknames needed for certain cross-compiles
-#+pmax
-(rename-package "PMAX" "PMAX" '("VM" "OLD-PMAX"))
-#+sparc
-(rename-package "SPARC" "SPARC" '("VM" "OLD-SPARC"))
-#+ibmrt
-(rename-package "RT" "RT" '("VM" "OLD-RT"))
-#+x86
-(rename-package "X86" "X86" '("VM" "OLD-X86"))
-#+amd64
-(rename-package "AMD64" "AMD64" '("VM" "OLD-AMD64"))
-#+hppa
-(rename-package "HPPA" "HPPA" '("VM" "OLD-HPPA"))
-#+alpha
-(rename-package "ALPHA" "ALPHA" '("VM" "OLD-ALPHA"))
-#+sgi
-(rename-package "SGI" "SGI" '("VM" "MIPS" "OLD-SGI"))
-#+ppc
-(rename-package "PPC" "PPC" '("VM" "OLD-PPC"))
-
 ;;; Load random code sources.
 
 (maybe-byte-load "code:format-time")