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