delete-messages-2.tcl