anchor.diff:  			       [sipdst:dst2str(Dst), E, binary_to_list(BinMsg)]),
   		    {senderror, "Could not get socket"}
   	    end;
  -	_ ->
  +	error ->
   	    {senderror, "Failed finding destination"}
       end.
   
  
positive.code: %%--------------------------------------------------------------------
  %% Function: send_proxy_request(Socket, Request, Dst, ViaParameters)
  %%           Socket        = sipsocket record() | none, socket to use
  %%                           for sending this request 
  %%           Request       = request record()
  %%           Dst           = sipdst record()
  %%           ViaParameters = list() of {key, value} tuple()
  
negative.code:   when is_record(Socket, sipsocket); Socket == none, is_record(Response, response) ->
      case sipheader:via(Response#response.header) of
  	[_Self] ->
  	    logger:log(error, "Can't proxy response ~p ~s because it contains just one or less Via and that "
  		       "should be mine!", [Response#response.status, Response#response.reason]),
  	    {error, invalid_Via};
  	[_Self | Via] ->
  	    %% Remove Via matching me (XXX should check that it does match me)
  	    NewHeader = keylist:set("Via", sipheader:via_print(Via), Response#response.header),
  	    NewResponse = Response#response{header=NewHeader},
  	    send_response(Socket, NewResponse)
      end.
  