That code predates the tcl proc, but noone has taken the time to update the code because it was working :)