(nothing here, please feel free to add)
What would we add - there is no funlock in Tcl...

... but there is in [TclX].