anchor.diff:      case encode_params([Param]) of
   	{error, Reason} -> {error, Reason};
   	EncodedParam ->
  -	    {ok, ["<?xml version=\"1.0\"?><methodResponse>", EncodedParam,
  +	    {ok, ["<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?><methodResponse>", EncodedParam,
   		  "</methodResponse>"]}
       end;
   payload(Payload) -> {error, {bad_payload, Payload}}.
  
positive.code: 	{error, Reason} -> {error, Reason};
  	EncodedParams ->
  	    EncodedPayload =
  		["<?xml version=\"1.0\"?><methodCall><methodName>",
  		 atom_to_list(Name), "</methodName>", EncodedParams,
  		 "</methodCall>"],
  	    {ok, EncodedPayload}
  
negative.code:     end;
  encode(Value) ->
      case xmlrpc_util:is_string(Value) of
  	yes -> ["<string">, escape_string(Value), "</string>"];
  	no -> {error, {bad_value, Value}}
      end.
  
  