Cleaned stuff in the tcl code
drwxr-xr-x - src