Evaluated proc magic:color color { set p [magic:new pixel]; if {[catch "@$p color $color" ok] != 1} { return $p } { return $ok } }