use tcl find rather than findFile