diff options
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tkUnixSend.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/tkUnixSend.c b/unix/tkUnixSend.c index 3f97e91..bbbdd77 100644 --- a/unix/tkUnixSend.c +++ b/unix/tkUnixSend.c @@ -1017,7 +1017,7 @@ Tk_SendObjCmd( localInterp = riPtr->interp; Tcl_Preserve(localInterp); if (firstArg == (objc-1)) { - result = Tcl_EvalObjEx(localInterp, objv[firstArg], TCL_EVAL_GLOBAL); + result = Tcl_EvalEx(localInterp, Tcl_GetString(objv[firstArg]), -1, TCL_EVAL_GLOBAL); } else { Tcl_DStringInit(&request); Tcl_DStringAppend(&request, Tcl_GetString(objv[firstArg]), -1); |