modified:   findb.tcl