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