reply-sweep-procs.tcl