Index: /trunk/ccl/lisp-kernel/asmutils.s
===================================================================
--- /trunk/ccl/lisp-kernel/asmutils.s	(revision 891)
+++ /trunk/ccl/lisp-kernel/asmutils.s	(revision 892)
@@ -93,5 +93,8 @@
 */
 _exportfn(C(zero_fpscr))
+	__(mr r4,r2)
+	__(mr r2,r3)
 	__(uuo_zero_fpscr())
+	__(mr r2,r4)
 	__(blr)
 _endfn
Index: /trunk/ccl/lisp-kernel/lisp-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 891)
+++ /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 892)
@@ -1305,5 +1305,5 @@
 handle_sigfpe(ExceptionInformation *xp, TCR *tcr)
 {
-  (void) zero_fpscr();
+  (void) zero_fpscr(tcr);
   enable_fp_exceptions();