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