object-delete-2.tcl