Evaluated proc aa {name field} { set ok [first [a $name]]; getval2 $ok $field }