diff --git a/lisp/interrupt.c b/lisp/interrupt.c
index 0194308f55d975e722b2dc28e5255f1945763e64..2c484f08f89687623ea8e3447dcff5787a5a0f03 100644
--- a/lisp/interrupt.c
+++ b/lisp/interrupt.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interrupt.c,v 1.22 2000/04/12 17:31:19 pw Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interrupt.c,v 1.23 2000/10/21 12:42:46 dtc Exp $ */
 
 /* Interrupt handing magic. */
 
@@ -271,7 +271,8 @@ interrupt_handle_now(HANDLER_ARGS)
      * Restore the FPU control word, setting the rounding mode to nearest.
      */
 
-    setfpucw(contextstruct.fpstate->cw & ~0xc00);
+    if (contextstruct.fpstate)
+      setfpucw(contextstruct.fpstate->cw & ~0xc00);
 #endif
 
     handler = interrupt_handlers[signal];
diff --git a/lisp/x86-arch.c b/lisp/x86-arch.c
index e19f4fbe0ec8fd9ea91faff37c7d57152aba7314..97258867ae452bdb881cdf767e0691bcfe21b10d 100644
--- a/lisp/x86-arch.c
+++ b/lisp/x86-arch.c
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.12 2000/09/05 08:51:52 dtc Exp $ 
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.13 2000/10/21 12:42:46 dtc Exp $ 
  *
  */
 
@@ -215,7 +215,8 @@ void  sigtrap_handler(HANDLER_ARGS)
    * Restore the FPU control word, setting the rounding mode to nearest.
    */
 
-  setfpucw(contextstruct.fpstate->cw & ~0xc00);
+  if (contextstruct.fpstate)
+    setfpucw(contextstruct.fpstate->cw & ~0xc00);
 #endif
 
  /*