case-procs.tcl