diff --git a/compiler/main.lisp b/compiler/main.lisp
index fec476df6f3cdb17385365910483e1dfa034a047..4c57590ca251a5657737358e2c7fbea5601de053 100644
--- a/compiler/main.lisp
+++ b/compiler/main.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.113 1999/11/25 15:57:39 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.114 1999/11/25 16:03:43 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -262,7 +262,8 @@
 ;;;
 (defun native-compile-component (component)
   (let ((*code-segment* nil)
-	(*elsewhere* nil))
+	(*elsewhere* nil)
+	(*elsewhere-label* nil))
     (maybe-mumble "GTN ")
     (gtn-analyze component)
     (maybe-mumble "LTN ")