Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.226.2.160
diff -u -r1.226.2.160 ChangeLog
--- ChangeLog	28 Oct 2002 21:12:03 -0000	1.226.2.160
+++ ChangeLog	10 Dec 2002 04:11:37 -0000
@@ -1,3 +1,9 @@
+2002-12-09  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* win/tclWinThrd.c (TclpMasterUnlock):
+	* generic/tclThread.c (TclFinalizeThreadData): TclpMasterUnlock
+	must exist and be called unconditional of TCL_THREADS. [Bug #651139]
+
 2002-10-28  Andreas Kupries  <andreask@activestate.com>
 
 	* library/dde1.1/pkgIndex.tcl:
Index: win/tclWinThrd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinThrd.c,v
retrieving revision 1.8.2.2
diff -u -r1.8.2.2 tclWinThrd.c
--- win/tclWinThrd.c	15 Oct 2002 19:38:20 -0000	1.8.2.2
+++ win/tclWinThrd.c	10 Dec 2002 04:11:37 -0000
@@ -293,7 +293,29 @@
     }
     EnterCriticalSection(&masterLock);
 }
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclpMasterUnlock
+ *
+ *	This procedure is used to release a lock that serializes creation
+ *	and deletion of synchronization objects.
+ *
+ * Results:
+ *	None.
+ *
+ * Side effects:
+ *	Release the master mutex.
+ *
+ *----------------------------------------------------------------------
+ */
 
+void
+TclpMasterUnlock()
+{
+    LeaveCriticalSection(&masterLock);
+}
 
 /*
  *----------------------------------------------------------------------
@@ -327,30 +349,6 @@
 
 
 #ifdef TCL_THREADS
-/*
- *----------------------------------------------------------------------
- *
- * TclpMasterUnlock
- *
- *	This procedure is used to release a lock that serializes creation
- *	and deletion of synchronization objects.
- *
- * Results:
- *	None.
- *
- * Side effects:
- *	Release the master mutex.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TclpMasterUnlock()
-{
-    LeaveCriticalSection(&masterLock);
-}
-
-
 /*
  *----------------------------------------------------------------------
  *
Index: generic/tclThread.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclThread.c,v
retrieving revision 1.5
diff -u -r1.5 tclThread.c
--- generic/tclThread.c	5 Apr 2000 00:42:20 -0000	1.5
+++ generic/tclThread.c	10 Dec 2002 04:11:37 -0000
@@ -417,9 +417,7 @@
 	}
 #endif
     }
-#ifdef TCL_THREADS
     TclpMasterUnlock();
-#endif
 }
 
 /*
