Evaluated proc cgc_bg args { set c $::__cgc; if {$args == ""} {return [first $c]} {set ::__cgc [list [first $c] [first $args]]} }