anchor.diff:  %%           Socket   = sipsocket record()
   %%           Response = response record()
   %% Descrip.: Prepare to send a response out on a socket.
  -%% Returns : Res = term(),
  +%% Returns : Res = term(), result of send_response_to(...) |
   %%           {senderror, Reason}
   %%           Reason = string()
   %%--------------------------------------------------------------------
  
positive.code: 				Response#response.header},
      case sipheader:topvia(Header) of
  	none ->
  	    logger:log(error, "Can't send response ~p ~s, no Via left.",
  		       [Status, Reason]),
  	    {senderror, "malformed response"};
  	error ->
  	    logger:log(error, "Failed getting top Via out of malformed response ~p ~s",
  		       [Status, Reason]),
  	    {senderror, "malformed response"};
  	TopVia when is_record(TopVia, via) ->
  	    send_response_to(Socket, Response, TopVia)
  
negative.code: 
  send_result(RequestHeader, Socket, Body, Status, Reason, ExtraHeaders)
    when is_record(RequestHeader, keylist), is_record(Socket, sipsocket); Socket == none,
         is_binary(Body); is_list(Body), is_integer(Status), is_list(Reason), is_record(ExtraHeaders, keylist) ->
      Response1 = #response{status=Status, reason=Reason,
  			  header=siprequest:standardcopy(RequestHeader, ExtraHeaders)},
      Response = siprequest:set_response_body(Response1, Body),
  