Update useruptime.tcl