Evaluated proc safebody name { if {[isproc $name] == 1} { info body $name } }