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