anchor.diff:  ssl_connection(Config) ->
       Host = proplists:get_value(listen_host, Config),
       Port = proplists:get_value(ssl_listen_port, Config),
  -    Opts = proplists:get_value(connect_opts, Config),
  +    Opts = proplists:get_value(tcp_connect_opts, Config),
       SSLOpts = proplists:get_value(ssl_connect_opts, Config),
  -    case eldap:open([Host], [{port,Port},{ssl,true},
  +    case eldap:open([Host], [{port,Port},
  +			     {ssl,true},
   			     {timeout,5000},
   			     {sslopts,SSLOpts}|Opts]) of
   	{ok,_H} -> ok;
  
positive.code: tcp_connection_option(Config) -> 
      Host = proplists:get_value(listen_host, Config),
      Port = proplists:get_value(listen_port, Config),
      Opts = proplists:get_value(connect_opts, Config),
      Sl = proplists:get_value(listen_socket, Config),
  
      %% Make an option value to test.  The option must be implemented on all
  
negative.code: 	    Listener = spawn_link(
  			 fun() ->
  				 case ssl:listen(SSL_Port, [{certfile, CertFile},
  							    {keyfile, KeyFile}
  							    | ?config(tcp_listen_opts,Config)
  							   ]) of
  				     {ok,SSL_LSock} ->
  					 Parent ! {ok,self()},
  					 (fun L() ->
  