transcript-delete-2.tcl