diff options
| -rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index dea4cbe..3890ac0 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -2402,7 +2402,7 @@ StringRplcCmd( return TCL_ERROR; } - end = Tcl_GetCharLength(objv[1]) - 1; + end = TclGetCharLength(objv[1]) - 1; if (TclGetIntForIndexM(interp, objv[2], end, &first) != TCL_OK || TclGetIntForIndexM(interp, objv[3], end, &last) != TCL_OK) { |