anchor.diff:  	    Result
       end;
   connect(ListenSocket, Node, N, _, Timeout, SslOpts, [_|_] =ContOpts0) ->
  -    ct:log("ssl:transport_accept(~p)~n", [ListenSocket]),
  +    ct:log("ssl:transport_accept(~P)~n", [ListenSocket, ?PRINT_DEPTH]),
       {ok, AcceptSocket} = ssl:transport_accept(ListenSocket),    
       ct:log("~p:~p~nssl:handshake(~p,~p,~p)~n", [?MODULE,?LINE, AcceptSocket, SslOpts,Timeout]),
   
  
positive.code:     Options = proplists:get_value(options, Opts),
      Pid = proplists:get_value(from, Opts),
      Transport =  proplists:get_value(transport, Opts, ssl),
      ct:log("~p:~p~nssl:listen(~p, ~p)~n", [?MODULE,?LINE, Port, Options]),
      %% {ok, ListenSocket} = Transport:listen(Port, Options),
      case Transport:listen(Port, Options) of
          {ok, ListenSocket} ->
  
negative.code: 	%% Unexpected ->
  	%%     Unexpected
      end.
  
  format_options([{cacerts, Certs}|R]) ->
      [{cacerts, format_certs(Certs)} | format_options(R)];
  format_options([{cert, Certs}|R]) ->
      [{cert, format_certs(Certs)} | format_options(R)];
  format_options([{key, Key}|R]) ->
      [{key, lists:flatten(io_lib:format("~W",[Key, ?PRINT_DEPTH]))} | format_options(R)];
  format_options([Opt|R]) ->
      [Opt | format_options(R)];
  format_options([]) ->
      [].
  
  format_certs(Certs) when is_list(Certs) ->
      [lists:flatten(format_cert(C)) || C <- Certs];
  format_certs(Cert) when is_binary(Cert) ->
      lists:flatten(format_cert(Cert)).
  
  format_cert(BinCert) when is_binary(BinCert) ->
      OtpCert = #'OTPCertificate'{tbsCertificate = Cert} = public_key:pkix_decode_cert(BinCert, otp),
      #'OTPTBSCertificate'{subject = Subject, serialNumber = Nr, issuer = Issuer} = Cert,
      case public_key:pkix_is_self_signed(OtpCert) of
          true ->
              io_lib:format("~.3w: ~s ->   selfsigned", [Nr, format_subject(Subject)]);
          false ->
              case public_key:pkix_issuer_id(OtpCert, other) of
                  {ok, {IsNr, Issuer0}} ->
                      io_lib:format("~.3w:~s -> ~.3w:~s", [Nr, format_subject(Subject), IsNr, format_subject(Issuer0)]);
                  {error, _} ->
                      io_lib:format("~.3w:~s ->    :~s", [Nr, format_subject(Subject), format_subject(Issuer)])
              end
      end.
  
  format_subject({rdnSequence, Seq}) ->
      format_subject(Seq);
  format_subject([[{'AttributeTypeAndValue', ?'id-at-commonName', {_, String}}]|_]) ->
      String;
  format_subject([_|R]) ->
      format_subject(R).
  
  cert_options(Config) ->
      ClientCaCertFile = filename:join([proplists:get_value(priv_dir, Config), 
  