if source.tcl if...