anchor.diff:  	{error, Reason} -> {error, Reason};
   	EncodedParams ->
   	    EncodedPayload =
  -		["<?xml version=\"1.0\"?><methodCall><methodName>",
  +		["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodCall><methodName>",
   		 atom_to_list(Name), "</methodName>", EncodedParams,
   		 "</methodCall>"],
   	    {ok, EncodedPayload}
  
positive.code:     end;
  encode(Value) ->
      case xmlrpc_util:is_string(Value) of
  	yes -> escape_string(Value);
  	no -> {error, {bad_value, Value}}
      end.
  
  
negative.code:     case xmlrpc_util:is_string(String) of
  	yes ->
  	    EncodedPayload =
  		["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><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),
  