"switch -glob -- $e TVRage_* - TVCom_* - Default_* - Bar_* { Put [set fail "$e - no value set."] }" (procedure "::ScriptMountain::TV::Init" line 7) invoked from within "::ScriptMountain::TV::Init" ("eval" body line 1) invoked from within "eval $LINE"