anchor.diff:  	    case xmlrpc_decode:payload(Payload) of
   		{ok, DecodedPayload} when KeepAlive == false ->
   		    ?DEBUG_LOG({decoded_response, DecodedPayload}),
  -		    gen_tcp:close(Socket),
  +		    close(Socket),
   		    {ok, DecodedPayload};
   		{ok, DecodedPayload} when KeepAlive == true,
   					  Header#header.connection == close ->
   		    ?DEBUG_LOG({decoded_response, DecodedPayload}),
  -		    gen_tcp:close(Socket),
  +		    close(Socket),
   		    {ok, Socket, DecodedPayload};
   		{ok, DecodedPayload} ->
   		    ?DEBUG_LOG({decoded_response, DecodedPayload}),
   		    {ok, Socket, DecodedPayload};
   		{error, Reason} when KeepAlive == false ->
  -		    gen_tcp:close(Socket),
  +		    close(Socket),
   		    {error, Reason};
   		{error, Reason} when KeepAlive == true,
   				     Header#header.connection == close ->
  -		    gen_tcp:close(Socket),
  +		    close(Socket),
   		    {error, Socket, Reason};
   		{error, Reason} ->
   		    {error, Socket, Reason}
   	    end;
   	{error, Reason} when KeepAlive == false ->
  -	    gen_tcp:close(Socket),
  +	    close(Socket),
   	    {error, Reason};
   	{error, Reason} when KeepAlive == true,
   			     Header#header.connection == close ->
  -	    gen_tcp:close(Socket),
  +	    close(Socket),
   	    {error, Socket, Reason};
   	{error, Reason} -> {error, Socket, Reason}
       end.
   
   get_payload(Socket, Timeout, ContentLength) ->
  -    inet:setopts(Socket, [{packet, raw}]),
  -    gen_tcp:recv(Socket, ContentLength, Timeout).
  +    setopts(Socket, [{packet, raw}]),
  +    recv(Socket, ContentLength, Timeout).
   
   %% Exported: start_link/{1,5,6}
   
  
positive.code: %% Exported: stop/1
  
  stop(Pid) -> tcp_serv:stop(Pid).
  
negative.code: parse_header(Socket, Timeout) -> parse_header(Socket, Timeout, #header{}).
  
  parse_header(Socket, Timeout, Header) ->
      case recv(Socket, 0, Timeout) of
  	{ok, "\r\n"} when Header#header.content_length == undefined ->
  	    {error, missing_content_length};
  	{ok, "\r\n"} -> {ok, Header};
  