anchor.diff:      case xmlrpc_util:is_string(String) of
   	yes ->
   	    EncodedPayload =
  -		["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodResponse><fault>"
  +		["<?xml version=\"1.0\" encoding=\"UTF-8\"?><methodResponse><fault>"
   		 "<value><struct><member><name>faultCode</name><value><int>",
   		 integer_to_list(Code), "</int></value></member><member><name>"
   		 "faultString</name><value><string>", escape_string(String),
  
positive.code: 	{error, Reason} -> {error, Reason};
  	EncodedParams ->
  	    EncodedPayload =
  		["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodCall><methodName>",
  		 atom_to_list(Name), "</methodName>", EncodedParams,
  		 "</methodCall>"],
  	    {ok, EncodedPayload}
  
negative.code:     case encode_params([Param]) of
  	{error, Reason} -> {error, Reason};
  	EncodedParam ->
  	    {ok, ["<?xml version=\"1.0\" encoding=\"UTF-8\"?><methodResponse>", EncodedParam,
  		  "</methodResponse>"]}
      end;
  payload(Payload) -> {error, {bad_payload, Payload}}.
  