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