anchor.diff:  	    {reply, {error, "Could not link to pid"}, State, ?TIMEOUT}
       end;
   
  +%%--------------------------------------------------------------------
  +%% Function: handle_call({monitor_get_socketlist}, From, State)
  +%% Descrip.: The stack monitor is requesting our list of connections.
  +%% Returns : {reply, {ok, List} State, ?TIMEOUT}
  +%%           List = socketlist record()
  +%%--------------------------------------------------------------------
  +handle_call({monitor_get_socketlist}, _From, State) ->
  +    {reply, {ok, State#state.socketlist}, State, ?TIMEOUT};
  +
   handle_call({quit}, _From, State) ->
       {stop, "Asked to quit", State}.
  -
   
   %%--------------------------------------------------------------------
   %% Function: handle_cast(Msg, State)
  
positive.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, Local6, none, SipSocket, 0, SocketList);
  				not_started ->
  				    SocketList;
  				{'EXIT', Reason} ->
  
negative.code: %%--------------------------------------------------------------------
  
  %%--------------------------------------------------------------------
  %% 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(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 ~p:~s:~p (~p)",
  		       [Proto, Host, Port, CPid]),
  	    SipSocket;
  	_ ->
  	    none
  