Update sortnp.tcl