This should be using tclsh.