diff options
| -rw-r--r-- | generic/tclEvent.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 79985ed..02d14b4 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1467,7 +1467,8 @@ VwaitVarProc( int *donePtr = 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; } |