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