fixed tcl bug

Habs durch gesehen, scheint zu funktionieren.

Bitte um Überprüfung durch @leipert  und @opalion ...