diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index b2f817efd14375725373029538544b5e39500b9c..2d70cb3c6bf403f082dc385c6f634145bd771727 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.89 2001/02/11 14:22:08 dtc Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.90 2001/03/13 14:14:50 pw Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -167,7 +167,8 @@
 #-(or no-clm runtime)
 (maybe-byte-load "target:interface/clm-library")
 
-(defvar *target-sl*)
+#+no-compiler (proclaim '(special *target-sl*))
+#-no-compiler (defvar *target-sl*)
 (setq *target-sl* (search-list "target:"))
 
 ;;; Don't include the search lists used for loading in the resultant core.