Tcl: add test code for Bug 729092
Merge pull request #197 from wtschueller/fix729092

Tcl: Bug 729092