anchor.diff:  %% Descrip.: Create a response given a request.
   %% Returns : Response = response record()
   %%--------------------------------------------------------------------
  -make_response(Status, Reason, Body, ExtraHeaders, ViaParameters, SipSocket, Request) when record(SipSocket, sipsocket) ->
  +make_response(Status, Reason, Body, ExtraHeaders, ViaParameters, SipSocket, Request)
  +  when is_record(SipSocket, sipsocket) ->
       make_response(Status, Reason, Body, ExtraHeaders, ViaParameters, SipSocket#sipsocket.proto, Request);
  -make_response(Status, Reason, Body, ExtraHeaders, ViaParameters, Proto, Request) when record(Request, request) ->
  +make_response(Status, Reason, Body, ExtraHeaders, ViaParameters, Proto, Request)
  +  when is_record(Request, request) ->
       ReqHeader = Request#request.header,
       AnswerHeader1 = keylist:appendlist(keylist:copy(ReqHeader, ["Via", "From", "To", "Call-ID", "CSeq",
   								"Record-Route", "Timestamp", "Content-Type"]),
  
positive.code: make_3261_token([H | T]) when H == $-; H == $.; H == $!; H == $%;
  H == $*; H == $_; H == $+; H == $`; H == $'; H == $~ ->
      [H|make_3261_token(T)];
  make_3261_token([H | T]) ->
      [$_|make_3261_token(T)].
  
  %%--------------------------------------------------------------------
  
negative.code: 		    {error, E1};
  		none ->
  		    {error, "no socket provided and get_socket() returned 'none'"};
  		S when is_record(S, sipsocket) ->
  		    logger:log(debug, "Siprequest: Extra debug: Get socket ~p ~p ~p ~p returned socket ~p",
  			       [SocketModule, SendProto, SendToHost, Port, S]),
  		    S
  