Evaluated proc isproc name { if {[catch "info body $name"] ==0} {return 1} {return 0}}