diff options
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index f332d24..3749c12 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -1078,12 +1078,14 @@ Tcl_ScanObjCmd( Tcl_ListObjAppendElement(NULL, objPtr, objs[i]); Tcl_DecrRefCount(objs[i]); } else { + Tcl_Obj *obj; /* * More %-specifiers than matching chars, so we just spit out * empty strings for these. */ - Tcl_ListObjAppendElement(NULL, objPtr, Tcl_NewObj()); + TclNewObj(obj); + Tcl_ListObjAppendElement(NULL, objPtr, obj); } } } |