Index: /trunk/ccl/lisp-kernel/thread_manager.c
===================================================================
--- /trunk/ccl/lisp-kernel/thread_manager.c	(revision 672)
+++ /trunk/ccl/lisp-kernel/thread_manager.c	(revision 673)
@@ -487,4 +487,5 @@
       tsd_set(lisp_global(TCR_KEY), tcr);
       ((void (*)())ptr_from_lispobj(callback_ptr))(1);
+      tsd_set(lisp_global(TCR_KEY), NULL);
     }
 #ifdef DARWIN