diff --git a/assembly/mips/wrlist.lisp b/assembly/mips/wrlist.lisp
index 3d995adf5fe8ea8b220ef5e3dd33a85aca5beaf2..082f4b5ad6e259c793f257760641c142077dc026 100644
--- a/assembly/mips/wrlist.lisp
+++ b/assembly/mips/wrlist.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/wrlist.lisp,v 1.4 1991/08/03 01:26:30 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/wrlist.lisp,v 1.5 1991/08/03 02:32:01 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -173,7 +173,8 @@
      (:temp l2 any-reg l2-offset)
      (:temp l3 any-reg l3-offset)
      (:temp nfp any-reg nfp-offset)
-     (:temp ocfp any-reg ocfp-offset))
+     (:temp ocfp any-reg ocfp-offset)
+     (:temp lra any-reg lra-offset))
 
   ;; The write into memory and the write into the write-list have to be atomic.
   (start-pseudo-atomic)
@@ -199,7 +200,7 @@
 
   ;; Save all lisp regs on the stack, so the garbage collector can find them.
   (save-regs-on-stack (symbol function a2 a3 a4 a5 cname lexenv
-		       l0 l1 l2 l3 nfp ocfp null-tn)
+		       l0 l1 l2 l3 nfp ocfp code-tn lra null-tn)
 
     ;; Convert the return address into an offset.  We don't have to save l0
     ;; across the call-out because it is one of the saved regs.