==4219== 157 (96 direct, 61 indirect) bytes in 2 blocks are definitely lost in loss record 5 of 7
==4219==    at 0x4A0610C: malloc (vg_replace_malloc.c:195)
==4219==    by 0x5D14E2: TclpAlloc (tclAlloc.c:699)
==4219==    by 0x43D1AE: Tcl_Alloc (tclCkalloc.c:1059)
==4219==    by 0x571252: Tcl_NewStringObj (tclStringObj.c:340)
==4219==    by 0x516C69: TclGetSourceFromFrame (tclExecute.c:9735)
==4219==    by 0x4306B8: EvalObjvCore (tclBasic.c:4262)
==4219==    by 0x4309D8: TclNRRunCallbacks (tclBasic.c:4390)
==4219==    by 0x43027D: Tcl_EvalObjv (tclBasic.c:4121)