Index: /trunk/ccl/lisp-kernel/lisp-debug.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-debug.c	(revision 7901)
+++ /trunk/ccl/lisp-kernel/lisp-debug.c	(revision 7902)
@@ -866,8 +866,21 @@
     fprintf(stderr, "Exception occurred while executing foreign code\n");
   }
-
   if (lisp_global(BATCH_FLAG)) {
     abort();
   }
+#ifdef DARWIN
+#ifdef X8664
+  if (xp) {
+    extern void *_sigtramp();
+    
+    if (xpPC(xp) == (natural)_sigtramp) {
+      xp = (ExceptionInformation *) xpGPR(xp,REG_RCX);
+      fprintf(stderr, "Exception raised at _sigtramp; using context passed to _sigtramp.  Raw register values (R) may be more interesting then lisp values or lisp backtrace");
+    }
+  }
+#endif
+#endif
+
+
   if (xp) {
     if (why > debug_entry_exception) {