From 2cd19c4e6bde78b2754deda187fec816a7c8283f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 4 Sep 2019 22:08:23 +0000
Subject: Bring back Tcl_UntraceVar

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

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 91bc995..d5a3776 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1475,10 +1475,10 @@ VwaitVarProc(
     int *donePtr = (int *)clientData;
     (void)dummy;
     (void)flags;
-    (void)name1;
-    (void)name2;
 
     *donePtr = 1;
+    Tcl_UntraceVar2(interp, name1, name2, TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+	    VwaitVarProc, clientData);
     return NULL;
 }
 
-- 
cgit v0.12