diff options
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 3908771..138478c 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -919,8 +919,9 @@ TclNRUplevelObjCmd( Tcl_WrongNumArgs(interp, 1, objv, "?level? command ?arg ...?"); return TCL_ERROR; } else if (!TclHasStringRep(objv[1]) && objc == 2) { - int status ,llength; - status = TclListObjLength_(interp, objv[1], &llength); + int status; + size_t llength; + status = Tcl_ListObjLength(interp, objv[1], &llength); if (status == TCL_OK && llength > 1) { /* the first argument can't interpreted as a level. Avoid * generating a string representation of the script. */ |