diff options
Diffstat (limited to 'win/tkWinWm.c')
| -rw-r--r-- | win/tkWinWm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c index e3816ca..f6723e0 100644 --- a/win/tkWinWm.c +++ b/win/tkWinWm.c @@ -6590,7 +6590,7 @@ TkWmProtocolEventProc( Tcl_Preserve((ClientData) protPtr); interp = protPtr->interp; Tcl_Preserve((ClientData) interp); - result = Tcl_GlobalEval(interp, protPtr->command); + result = Tcl_EvalEx(interp, protPtr->command, -1, TCL_EVAL_GLOBAL); if (result != TCL_OK) { Tcl_AddErrorInfo(interp, "\n (command for \""); Tcl_AddErrorInfo(interp, name); |