diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 65c0519a6dd62360c605c305e57e9ef824b506ee..dc57de7ce6e26920b94a960248bc689a93dd0f08 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.17 1990/10/13 21:45:47 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.18 1990/10/20 01:36:42 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -118,6 +118,7 @@
 		  #'(lambda (reg)
 		      `(,(reg-spec-name reg)
 			(make-random-tn
+			 :kind :normal
 			 :sc (sc-or-lose ',(reg-spec-sc reg))
 			 :offset ,(reg-spec-offset reg))))
 		  regs))