Evaluated proc aa {name field args} { if { $args == "" } { getval2 [first [a $name]] $field } {  } }