anchor.diff:  % transform entity from {list(), list()} to {atom(), term()}
   transform_entity({Tag, [Value|Rest]}) when
       is_tuple(Value)->
  -	{list_to_atom(Tag), transform_entity_list([Value|Rest])};
  +	{list_to_atom(Tag), transform_entity_list(lists:reverse([Value|Rest]))};
   transform_entity({Tag, String})->
       case list_to_term(String) of
   	{ok, Value}->
  
positive.code: -module(ct_config_xml).
  -export([read_config/1, check_parameter/1]).
  
  % read config file
  read_config(ConfigFile) ->
      case catch do_read_xml_config(ConfigFile) of
  
negative.code: 
  % actual reading of the config
  do_read_xml_config(ConfigFile)->
      case catch xmerl_sax_parser:file(ConfigFile,
  	    [{event_fun, fun event/3},
  	    {event_state, []}]) of
  	{ok, EntityList, _}->
  	    {ok, lists:reverse(transform_entity_list(EntityList))};
  	Oops->
  	    {error, parsing_failed, Oops}
      end.
  
  % event callback for xmerl_sax_parser
  event(Event, _LineNo, State) ->
  