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