Evaluated proc safeeval e { eval "catch {eval $e} ok"; return $ok }