correction tclsh