Evaluated set ok {proc oedu9o89o {} {. a }}; eval "catch {eval $ok}"