diff --git a/assembly/mips/assem-rtns.lisp b/assembly/mips/assem-rtns.lisp
index 6f3cd4a875bfd1a7ea76416f92a98aab1df92a28..94e69bce1c5606ba489face2167f36624167318d 100644
--- a/assembly/mips/assem-rtns.lisp
+++ b/assembly/mips/assem-rtns.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/assem-rtns.lisp,v 1.30 1993/05/19 13:57:24 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/assem-rtns.lisp,v 1.31 1993/05/19 16:17:09 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -222,7 +222,8 @@
 
   (loadw next-uwp cur-uwp vm:unwind-block-current-uwp-slot)
   (inst b do-exit)
-  (store-symbol-value next-uwp lisp::*current-unwind-protect-block*))
+  #-gengc (store-symbol-value next-uwp lisp::*current-unwind-protect-block*)
+  #+gengc (storew next-uwp mutator-tn mutator-current-unwind-protect-slot))
 
 
 (define-assembly-routine
@@ -236,7 +237,7 @@
   (progn start count) ; We just need them in the registers.
 
   #-gengc (load-symbol-value catch lisp::*current-catch-block*)
-  #+gengc (loadw temp mutator-tn mutator-current-catch-block-slot)
+  #+gengc (loadw catch mutator-tn mutator-current-catch-block-slot)
   
   loop
   
@@ -256,5 +257,3 @@
   (move target catch)
   (inst j (make-fixup 'unwind :assembly-routine))
   (inst nop))
-
-