anchor.diff:  				   #config{transport_info =  {Transport,_,_, _} =CbInfo,
   					   connection_cb = ConnectionCb,
   					   ssl = SslOpts,
  -					   emulated = Tracker}}}, Timeout) ->   
  +					   emulated = Tracker}}}, Timeout) when (is_integer(Timeout) andalso Timeout > 0) or (Timeout == infinity) ->   
       case Transport:accept(ListenSocket, Timeout) of
   	{ok, Socket} ->
   	    {ok, EmOpts} = ssl_socket:get_emulated_opts(Tracker),
  
positive.code: connect(Socket, SslOptions) when is_port(Socket) ->
      connect(Socket, SslOptions, infinity).
  
  connect(Socket, SslOptions0, Timeout) when is_port(Socket) ->
      {Transport,_,_,_} = proplists:get_value(cb_info, SslOptions0,
  					      {gen_tcp, tcp, tcp_closed, tcp_error}),
      EmulatedOptions = ssl_socket:emulated_options(),
  
negative.code:     catch
  	Error = {error, _Reason} -> Error
      end;
  ssl_accept(Socket, SslOptions, Timeout) when is_port(Socket),
  					     (is_integer(Timeout) andalso Timeout > 0) or (Timeout == infinity) -> 
      {Transport,_,_,_} =
  	proplists:get_value(cb_info, SslOptions, {gen_tcp, tcp, tcp_closed, tcp_error}),
      EmulatedOptions = ssl_socket:emulated_options(),
  