diff options
| -rw-r--r-- | generic/tclTest.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5b74663..30c95c8 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7123,6 +7123,7 @@ TestparseargsCmd( result[1] = Tcl_NewIntObj(count); result[2] = Tcl_NewListObj(count, remObjv); Tcl_SetObjResult(interp, Tcl_NewListObj(3, result)); + ckfree(remObjv); return TCL_OK; } |