sweep-procs.tcl