From 95fb48bf07be37ad0717475514d2c444602a0a6c Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 16 Jun 2016 16:14:28 +0000
Subject: Correct the patch.

---
 generic/tclEvent.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 95fbf79..906ecbb 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1457,11 +1457,8 @@ VwaitVarProc(
     int *donePtr = clientData;
 
     *donePtr = 1;
-
-    Tcl_UntraceVar(interp, name1,
-	    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+    Tcl_UntraceVar(interp, name1, TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
 	    VwaitVarProc, clientData);
-
     return NULL;
 }
 
-- 
cgit v0.12