Index: /trunk/source/lisp-kernel/thread_manager.c
===================================================================
--- /trunk/source/lisp-kernel/thread_manager.c	(revision 15437)
+++ /trunk/source/lisp-kernel/thread_manager.c	(revision 15438)
@@ -841,4 +841,8 @@
 #ifdef DARWIN64
     tcr = darwin_allocate_tcr();
+#else
+    tcr = calloc(1, sizeof(TCR));
+#endif
+#ifdef DARWIN
     if (use_mach_exception_handling) {
       thread_exception_port = (mach_port_t)((natural)tcr);
@@ -855,6 +859,4 @@
       continue;
     }
-#else
-    tcr = calloc(1, sizeof(TCR));
 #endif
     for (;chain;chain = next) {