diff options
Diffstat (limited to 'generic/tclStrIdxTree.c')
| -rw-r--r-- | generic/tclStrIdxTree.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStrIdxTree.c b/generic/tclStrIdxTree.c index ee8f786..b39db90 100644 --- a/generic/tclStrIdxTree.c +++ b/generic/tclStrIdxTree.c @@ -463,7 +463,7 @@ TclStrIdxTreePrint( Tcl_Obj *obj[2]; const char *s; - TclInitObjRef(obj[0], Tcl_NewStringObj("::puts", -1)); + TclInitObjRef(obj[0], Tcl_NewStringObj("::puts", TCL_AUTO_LENGTH)); while (tree != NULL) { s = TclGetString(tree->key) + offs; TclInitObjRef(obj[1], Tcl_ObjPrintf("%*s%.*s\t:%d", |