Don't use deprecated Tcl_DStringTrunc any more.
Don't use deprecated Tcl_DStringTrunc any more