anchor.diff:  %%--------------------------------------------------------------------
   
   %%--------------------------------------------------------------------
  -%% Function: get_socket_from_list(Host, Port, SocketList)
  -%%           Host = string()
  -%%           Port = term()
  +%% Function: get_socket_from_list(Proto, Host, Port, SocketList)
  +%%           Proto = atom(), tcp | tcp6 | tls | tls6
  +%%           Host  = string()
  +%%           Port  = term()
   %%           SocketList = socketlist record()
   %% Descrip.: Look for an entry with remote {Host, Port} in SocketList
   %% Returns : SipSocket |
   %%           none
   %%           SipSocket = sipsocket record()
   %%--------------------------------------------------------------------
  -get_socket_from_list(Host, Port, SocketList) when is_list(Host), is_integer(Port) ->
  -    case socketlist:get_using_remote({Host, Port}, SocketList) of
  +get_socket_from_list(Proto, Host, Port, SocketList) when is_list(Host), is_integer(Port),
  +							 Proto == tcp; Proto == tcp6;
  +							 Proto == tls; Proto == tls6 ->
  +    case socketlist:get_using_remote(Proto, {Host, Port}, SocketList) of
   	SListElem when is_record(SListElem, socketlistelem) ->
   	    [CPid, SipSocket] = socketlist:extract([pid, sipsocket], SListElem),
  -	    logger:log(debug, "Sipsocket TCP: Reusing existing connection to ~s:~p (~p)",
  -		       [Host, Port, CPid]),
  +	    logger:log(debug, "Sipsocket TCP: Reusing existing connection to ~p:~s:~p (~p)",
  +		       [Proto, Host, Port, CPid]),
   	    SipSocket;
   	_ ->
   	    none
  
positive.code: 			{ok, Local, Listener} ->
  			    SipSocket = #sipsocket{module=sipsocket_tcp, proto=Proto, pid=Listener, data={Local, none}},
  			    %% Add with timeout of 0 since listening sockets should never be expired
  			    socketlist:add({listener, Proto, Port}, Listener, Local, none, SipSocket, 0, SocketList);
  			not_started ->
  			    SocketList;
  			{'EXIT', Reason} ->
  
negative.code: 				{ok, Local6, Listener6} ->
  				    SipSocket = #sipsocket{module=sipsocket_tcp, proto=Proto, pid=Listener6, data={Local6, none}},
  				    %% Add with timeout of 0 since listening sockets should never be expired
  				    socketlist:add({listener, Proto, Port}, Listener6, Proto, Local6, none, SipSocket, 0, SocketList);
  				not_started ->
  				    SocketList;
  				{'EXIT', Reason} ->
  