Index: /trunk/source/lisp-kernel/x86-exceptions.c
===================================================================
--- /trunk/source/lisp-kernel/x86-exceptions.c	(revision 14426)
+++ /trunk/source/lisp-kernel/x86-exceptions.c	(revision 14427)
@@ -1695,9 +1695,13 @@
 {
   TCR* tcr = get_tcr(true);
-#if 0
-  if (tcr->valence != TCR_STATE_LISP) {
-    lisp_Debugger(context, info, signum, true, "exception in foreign context");
-  }
-#endif
+
+#if WORD_SIZE==64
+  if ((signum == SIGFPE) && (tcr->valence != TCR_STATE_LISP)) {
+    if (handle_foreign_fpe(tcr,context,info)) {
+      return;
+    }
+  }
+#endif
+     
   handle_signal_on_foreign_stack(tcr,signal_handler,signum,info,context,(LispObj)__builtin_return_address(0)
 #ifdef DARWIN_GS_HACK