Evaluated proc arrayset {name val} { if { [getval2 $::_____arrays $name] != "" } { . ok } }