updated procs to tcl8.5+ by using args