Working on tcl errors in source code