Index: /trunk/ccl/lisp-kernel/x86-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/x86-exceptions.c	(revision 5198)
+++ /trunk/ccl/lisp-kernel/x86-exceptions.c	(revision 5199)
@@ -943,4 +943,9 @@
   TCR* tcr = get_tcr(true);
   LispObj *foreign_rsp = find_foreign_rsp(xpGPR(context,Isp), tcr->cs_area, tcr);
+#if 1
+  if (tcr->valence != TCR_STATE_LISP) {
+    Bug(context, "exception in foreign context");
+  }
+#endif
 #ifdef LINUX
   fpregset_t fpregs = NULL;