patch-rate.tcl