Index: /branches/event-ide/ccl/level-1/l1-readloop.lisp
===================================================================
--- /branches/event-ide/ccl/level-1/l1-readloop.lisp	(revision 7911)
+++ /branches/event-ide/ccl/level-1/l1-readloop.lisp	(revision 7912)
@@ -124,5 +124,5 @@
 
 
-(defglobal *quitting* nil)
+(defloadvar *quitting* nil)
 
 
Index: /branches/event-ide/ccl/lisp-kernel/lisp-debug.c
===================================================================
--- /branches/event-ide/ccl/lisp-kernel/lisp-debug.c	(revision 7911)
+++ /branches/event-ide/ccl/lisp-kernel/lisp-debug.c	(revision 7912)
@@ -866,8 +866,22 @@
     fprintf(stderr, "Exception occurred while executing foreign code\n");
   }
-
   if (lisp_global(BATCH_FLAG)) {
     abort();
   }
+#ifdef DARWIN
+#ifdef X8664
+  if (xp) {
+    extern void *_sigtramp();
+    extern int os_major_version;
+
+    if (xpPC(xp) == (natural)_sigtramp) {
+      xp = (ExceptionInformation *) xpGPR(xp,os_major_version < 9 ? REG_RSI :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\n");
+    }
+  }
+#endif
+#endif
+
+
   if (xp) {
     if (why > debug_entry_exception) {
Index: /branches/event-ide/ccl/lisp-kernel/pmcl-kernel.c
===================================================================
--- /branches/event-ide/ccl/lisp-kernel/pmcl-kernel.c	(revision 7911)
+++ /branches/event-ide/ccl/lisp-kernel/pmcl-kernel.c	(revision 7912)
@@ -1286,4 +1286,7 @@
 #endif
 
+int
+os_major_version = 0;
+
 void
 check_os_version(char *progname)
@@ -1296,4 +1299,6 @@
     exit(1);
   }
+  sscanf(uts.release,"%d",&os_major_version);
+
 #ifdef PPC
 #ifdef DARWIN