diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 2a7c429f9899fade39814cd8855873349409fab5..117035d2415ea430696f0bb88c7e38b99015285d 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.10 1990/05/23 06:03:16 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.11 1990/05/24 13:24:06 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -35,7 +35,9 @@
 	 (*assembler-routines* nil)
 	 (won nil))
     (unwind-protect
-	(let (*code-segment* *elsewhere*)
+	(let (*code-segment*
+	      *elsewhere*
+	      #-new-compiler (lisp::*in-compilation-unit* nil))
 	  (init-assembler)
 	  (load (merge-pathnames name (make-pathname :type "lisp")))
 	  (fasl-dump-cold-load-form `(in-package ,(package-name *package*))
@@ -153,7 +155,9 @@
        (:temporary (:scs (interior-reg) :type interior
 			 :from (:eval 0) :to (:eval 1))
 		   ,lip)
-       (:temporary (:sc any-reg :offset lra-offset) ,return-pc)
+       (:temporary (:sc any-reg :offset lra-offset
+			:from (:eval 0) :to (:eval 1))
+		   ,return-pc)
        (:temporary (:scs (non-descriptor-reg) :type random
 			 :from (:eval 0) :to (:eval 1))
 		   ,ndescr)