diff --git a/lisp/mips-assem.S b/lisp/mips-assem.S
index 4908037e2cdbac3c83fc64e6cd175c0797639082..63873a7a11b382c38e467d03ba85440d221e5e7a 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.4 1994/07/06 20:55:18 hallgren Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.5 1994/07/19 19:51:10 hallgren Exp $ */
 #ifdef mach
 #include <machine/regdef.h>
 #else
@@ -47,6 +47,7 @@ call_into_lisp:
 	move	t5, zero
 	move	t6, zero
 	move	t7, zero
+	move	t8, zero
 	move	s0, zero
 	move	s1, zero
 	move	s2, zero
@@ -206,6 +207,10 @@ call_into_c:
 	move	t5, zero
 	move	t6, zero
 	move	t7, zero
+	move	t8, zero
+	move	s0, zero
+	move	s1, zero
+	move	s2, zero
 	move	ra, zero
 
 	/* Turn on pseudo-atomic. */