fix tcl binding