diff --git a/assembly/mips/assem-rtns.lisp b/assembly/mips/assem-rtns.lisp
index 44c8eacde19ddda39f5f4c9f4ec71ea33a945ec3..831eda11622f1da99da9cccaa53b147582e53d83 100644
--- a/assembly/mips/assem-rtns.lisp
+++ b/assembly/mips/assem-rtns.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.23 1990/10/19 14:16:43 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.24 1990/10/19 15:31:18 wlott Exp $
 ;;;
 ;;;
 (in-package "C")
@@ -104,7 +104,7 @@
      ()
      ;; These are really args.
      (:temp args any-reg nl0-offset)
-     (:temp function descriptor-reg lexenv-offset)
+     (:temp lexenv descriptor-reg lexenv-offset)
 
      ;; We need to compute this
      (:temp nargs any-reg nargs-offset)
@@ -156,8 +156,8 @@
 	
   DONE
   ;; We are done.  Do the jump.
-  (loadw function lexenv vm:closure-function-slot vm:function-pointer-type)
-  (lisp-jump function lip))
+  (loadw temp lexenv vm:closure-function-slot vm:function-pointer-type)
+  (lisp-jump temp lip))
 
 
 
@@ -206,8 +206,7 @@
 			  (:arg start any-reg old-fp-offset)
 			  (:arg count any-reg nargs-offset)
 			  (:temp catch any-reg a1-offset)
-			  (:temp tag descriptor-reg a2-offset)
-			  (:temp ndescr non-descriptor-reg nl0-offset))
+			  (:temp tag descriptor-reg a2-offset))
   
   (progn start count) ; We just need them in the registers.