diff --git a/lisp/mips-assem.S b/lisp/mips-assem.S
index 63873a7a11b382c38e467d03ba85440d221e5e7a..88e8b9403656c6faf45ddd6860479993d01ddc7d 100644
--- a/lisp/mips-assem.S
+++ b/lisp/mips-assem.S
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.5 1994/07/19 19:51:10 hallgren Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.6 1994/07/20 16:52:41 hallgren Exp $ */
 #ifdef mach
 #include <machine/regdef.h>
 #else
@@ -209,8 +209,8 @@ call_into_c:
 	move	t7, zero
 	move	t8, zero
 	move	s0, zero
-	move	s1, zero
 	move	s2, zero
+	move	s3, zero
 	move	ra, zero
 
 	/* Turn on pseudo-atomic. */