From 90ee2cf3a15f9a25ed53108fdd61ac0bba0fd066 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 19 Jun 2013 08:56:28 +0000
Subject: minor bug: Don't TclpInitUnlock() here, because the following
 TclFinalizeLock() already does an implicit unlock.

---
 generic/tclEvent.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 732a7d6..9f6f8fe 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1231,7 +1231,6 @@ Tcl_Finalize(void)
     initState = DOWN;
     changer = NULL;
     }
-    TclpInitUnlock();
     } else {
 	if (changer == Tcl_GetCurrentThread()) {
 #if INITDEBUG
-- 
cgit v0.12