diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index f0c308fd53f4e433822205a5a739b95917ac64b3..f1b3a96bd8200a675bf0ea33d6d89eba817cc883 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.51 1993/03/13 13:46:25 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.52 1993/05/12 15:59:17 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -33,6 +33,7 @@
 	(declare (optimize (safety 2))))
        ((:and :external (:match "LIST"))
 	(declare (optimize (safety 1))))))
+(let ((*byte-compile-top-level* nil))
 
 ;;; these guys need to be first.
 (comf "target:code/struct") ; For structures.
@@ -218,5 +219,6 @@
   ;; We can't compile anything after macros, 'cause it breaks the running lisp.
   (comf "target:code/macros"))
 
+); let *byte-compile-top-level*
 
 ); with-compiler-log-file