Update hashit.tcl