Un petit truc pénible qui peut vous faire perdre pas mal de temps en TCL :
On set une variable avec set :

set myvar 42

Par contre pour l'utiliser il faut bien mettre le $ devant :

puts $myvar

Sinon on a pas d'erreur, c'est la chaine de caractères "myvar" qui sera prise en compte ;)