Index: /trunk/source/lisp-kernel/x86-exceptions.c
===================================================================
--- /trunk/source/lisp-kernel/x86-exceptions.c	(revision 13766)
+++ /trunk/source/lisp-kernel/x86-exceptions.c	(revision 13767)
@@ -1551,5 +1551,5 @@
 #if 1
   if (tcr->valence != TCR_STATE_LISP) {
-    FBug(context, "exception in foreign context");
+    lisp_Debugger(context, info, signum, true, "exception in foreign context");
   }
 #endif
@@ -1585,5 +1585,5 @@
 #if 1
   if (tcr->valence != TCR_STATE_LISP) {
-    FBug(context, "exception in foreign context");
+    lisp_Debugger(context, info, signum, true, "exception in foreign context");
   }
 #endif