Some fifteen years ago I briefly worked with Cisco VoIP and the IVR was all Tcl scripted.

F5 BigIP load balancers has hooks in Tcl that control the balancing and can rewrite requests.

So there are niches for Tcl still. Nice language.