anchor.diff:  %% Returns : SipSocket |
   %%           none
   %%           SipSocket = sipsocket record()
  -%%
  -%% Note    : XXX enforce integer port
  -%%--------------------------------------------------------------------
  -get_socket_from_list(Host, Port, SocketList) ->
  +%%--------------------------------------------------------------------
  +get_socket_from_list(Host, Port, SocketList) when is_list(Host), is_integer(Port) ->
       case socketlist:get_using_remote({Host, Port}, SocketList) of
  -	SListElem when record(SListElem, socketlistelem) ->
  -	    [CPid, Local, Remote, SipSocket] = socketlist:extract([pid, local, remote, sipsocket], SListElem),
  +	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]),
   	    SipSocket;
  
positive.code: %%                   {error, Reason}
  %%           Reason    = string()
  %%--------------------------------------------------------------------
  handle_call({register_sipsocket, Dir, SipSocket}, From, State) when record(SipSocket, sipsocket) ->
      CPid = SipSocket#sipsocket.pid,
      case catch link(CPid) of
  	true ->
  
negative.code: %% Purpose: Convert process state when code is changed
  %% Returns: {ok, NewState}
  %%--------------------------------------------------------------------
  code_change(_OldVsn, State, _Extra) ->
      {ok, State}.
  
  %%--------------------------------------------------------------------
  