anchor.diff:  % stolen from trapexit.org :-)
   list_to_term(String) ->
       {ok, T, _} = erl_scan:string(String++"."),
  -    case erl_parse:parse_term(T) of
  +    case catch erl_parse:parse_term(T) of
           {ok, Term} ->
               {ok, Term};
           Error ->
  
positive.code: 
  % actual reading of the config
  do_read_xml_config(ConfigFile)->
      {ok, EntityList, _}=
  	xmerl_sax_parser:file(ConfigFile,
  	    [{event_fun, fun event/3},
  	    {event_state, []}]),
      {ok, transform_entity_list(EntityList)}.
  
  % event callback for xmerl_sax_parser
  event(Event, _LineNo, State) ->
  
negative.code: -module(ct_config_xml).
  -export([read_config/1, check_parameter/1]).
  
  % DEBUG ONLY
  -export([list_to_term/1]).
  
  % read config file
  read_config(ConfigFile) ->
      case catch do_read_xml_config(ConfigFile) of
  