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