case-assignment-remove-2.tcl