reply-sweep-init.tcl