Index: tclEvent.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEvent.c,v
retrieving revision 1.12
diff -u -r1.12 tclEvent.c
--- tclEvent.c	2001/08/30 07:50:18	1.12
+++ tclEvent.c	2001/09/10 16:38:59
@@ -936,8 +936,12 @@
 int
 TclInExit()
 {
-    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
-    return tsdPtr->inExit;
+    ThreadSpecificData *tsdPtr = TclThreadDataKeyGet(&dataKey); 
+    if (tsdPtr == NULL) { 
+	return inFinalize; 
+    } else { 
+	return tsdPtr->inExit; 
+    } 
 }
 
 /*
