Update p4.tcl