diff options
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 5379871..b89051c 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3989,7 +3989,7 @@ Tcl_LsearchObjCmd( * default... */ - Tcl_SetObjResult(interp, Tcl_NewObj()); + Tcl_ResetResult(interp); } else { if (returnSubindices) { Tcl_SetObjResult(interp, SelectObjFromSublist(listv[i+groupOffset], @@ -4767,7 +4767,8 @@ Tcl_LsortObjCmd( sortInfo.resultCode = TCL_ERROR; goto done; } - Tcl_ListObjAppendElement(interp, newCommandPtr, Tcl_NewObj()); + TclNewObj(newObjPtr); + Tcl_ListObjAppendElement(interp, newCommandPtr, newObjPtr); sortInfo.compareCmdPtr = newCommandPtr; } |