case-deadline-set.tcl