Patch to direct.tcl