fixed tcl bug
Merge pull request #169 from gehaxelt/bugfix_tcl

fixed tcl bug