diff --git a/compiler/rt/print.lisp b/compiler/rt/print.lisp
index 41ce17395c5e2412e6c9c5ef35b8bb66250b786e..eb3625aee3c63c55047e52591c369558fcde5073 100644
--- a/compiler/rt/print.lisp
+++ b/compiler/rt/print.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/print.lisp,v 1.1 1991/02/18 15:08:08 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/print.lisp,v 1.2 1991/10/02 23:05:52 ram Exp $
 ;;;
 ;;; This file contains temporary printing utilities and similar noise.
 ;;;
@@ -23,7 +23,6 @@
   (:save-p t)
   (:temporary (:sc any-reg :offset nl0-offset) nl0)
   (:temporary (:sc any-reg :offset lra-offset) lra)
-  (:temporary (:sc any-reg :offset code-offset) code)
   (:temporary (:scs (sap-reg)) temp)
   (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
   (:vop-var vop)
@@ -34,7 +33,7 @@
 	(store-stack-tn cur-nfp nfp-save))
       (inst cal nsp-tn nsp-tn -16)
       (storew object nsp-tn)
-      (inst compute-lra-from-code lra code lra-label)
+      (inst compute-lra-from-code lra code-tn lra-label)
       (inst cai nl0 (make-fixup "_debug_print" :foreign))
       (inst cai temp (make-fixup "call_into_c" :foreign))
       (inst b temp)