Mirror from tcllib @ core.tcl.tk