I work for the company SIEMENS in Austria (Vienna). I program since 25 years now, mainly in C++ for bigger projects but have Tcl experience since Linux came up (the age of the 486er). I also do some hardware stuff just for fun (digital logic and microcontrollers) as well as trying to stay on my motorbike (Ninja ZX6R).
We use Tcl a lot in our department where we build so called check-out equipment for spacecrafts and satellites (Ariane 4 / 5 and Meteosat for example). I really like Tcl a lot but my time is really very short to give contributions back to the community. I hope (as the last ten years) this will change soon ...