Evaluated proc safeeval e { if {[catch "eval $e" ok] == 1} { return $ok } }