diff options
Diffstat (limited to 'generic/tclDate.c')
| -rw-r--r-- | generic/tclDate.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c index 3bdbdb2..674f4a0 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -2859,7 +2859,8 @@ TclClockOldscanObjCmd( Tcl_ListObjAppendElement(interp, result, Tcl_NewIntObj((int) ToSeconds(yyHour, yyMinutes, yySeconds, (MERIDIAN)yyMeridian))); } else { - Tcl_ListObjAppendElement(interp, result, Tcl_NewObj()); + TclNewObj(resultElement); + Tcl_ListObjAppendElement(interp, result, resultElement); } TclNewObj(resultElement); |