changed tcl, comment added