From 6f79cd18d73ff8505c57c11805d5476bc398e8ac Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 2 Sep 2019 11:07:46 +0000
Subject: Missing TCL_GLOBAL_ONLY flag in VwaitVarProc(): vwait always
 references global variables, this could lead to strange side-effects.

---
 generic/tclEvent.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 4db524c..0fed0a8 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1379,7 +1379,8 @@ VwaitVarProc(
     int *donePtr = (int *) clientData;
 
     *donePtr = 1;
-    Tcl_UntraceVar(interp, name1, TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+    Tcl_UntraceVar2(interp, name1, name2,
+	    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
 	    VwaitVarProc, clientData);
     return NULL;
 }
-- 
cgit v0.12