anchor.diff:  %% Description: Gets the socket stats values for the socket
   %%-------------------------------------------------------------------------
   getstat(ip_comm = _SocketType, Socket) ->
  -    ?hlrt("ip_comm getstat", [{socket, Socket}]),
       case inet:getstat(Socket) of
   	{ok, Stats} ->
   	    Stats;
  
positive.code: 
  %% -- negotiate --
  negotiate(ip_comm,_,_) ->
      ?hlrt("negotiate(ip_comm)", []),
      ok;
  negotiate({ssl, SSLConfig}, Socket, Timeout) ->
      ?hlrt("negotiate(ssl)", []),
      negotiate({?HTTP_DEFAULT_SSL_KIND, SSLConfig}, Socket, Timeout);
  negotiate({essl, _}, Socket, Timeout) ->
      ?hlrt("negotiate(essl)", []),
      negotiate_ssl(Socket, Timeout).
  
  negotiate_ssl(Socket, Timeout) ->
      ?hlrt("negotiate_ssl", [{socket, Socket}, {timeout, Timeout}]),
      case ssl:ssl_accept(Socket, Timeout) of
  	ok ->
  	    ok;
  	{error, Reason} ->
  	    ?hlrd("negotiate_ssl - accept failed", [{reason, Reason}]),
  	    %% Look for "valid" error reasons
  	    ValidReasons = [timeout, econnreset, esslaccept, esslerrssl], 
  	    case lists:member(Reason, ValidReasons) of
  
negative.code:     getopts({?HTTP_DEFAULT_SSL_KIND, SSLConfig}, Socket, Options);
  
  getopts({essl, _}, Socket, Options) ->
      getopts_ssl(Socket, Options).
  
  getopts_ssl(Socket, Options) ->
  