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