copy in some tcl private headers