From c755ef08151343eb145710489f8c999edbef15ff Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 16 Jun 2016 14:23:15 +0000
Subject: [16828b3744] Prototype fix for merging forward.

---
 generic/tclEvent.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index ba2bb64..4de8f0b 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1451,6 +1451,11 @@ VwaitVarProc(
     int *donePtr = clientData;
 
     *donePtr = 1;
+
+    Tcl_UntraceVar(interp, name1,
+	    TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+	    VwaitVarProc, clientData);
+
     return NULL;
 }
 
-- 
cgit v0.12

