anchor.diff:  					  ctrl_data = {NextMsgData, [], 
   						       start}}};
   		_ ->
  +		    io:format('   ...handle_ctrl_result(~p,...) ctrl_data=~p~n',[CtrlResult,{NextMsgData, [], start}]),
   		    handle_ctrl_result(CtrlResult,
   				       State#state{ctrl_data = 
   						   {NextMsgData, [], start}})
   	    end;
   	{continue, NewCtrlData} ->
  +	    io:format('   ...Continue... ctrl_data=~p~n',[NewCtrlData]),
   	    activate_ctrl_connection(State),
   	    {noreply, State#state{ctrl_data = NewCtrlData}}
       end;
  
positive.code: accept_data_connection(#state{mode = passive} = State) ->
      maybe_requests_tls_upgrade(State).
  
  send_ctrl_message(#state{csock = Socket, verbose = Verbose}, Message) ->
      verbose(lists:flatten(Message),Verbose,send),
      send_message(Socket, Message).
  
  send_data_message(#state{dsock = Socket}, Message) ->
      case send_message(Socket, Message) of
  	ok ->
  	    ok;
  
negative.code: handle_ctrl_result({pos_compl, _}, #state{tls_upgrading_data_connection = {true, prot, NextAction},
  					  dsock = {tcp, Socket}, client = From,
  					  tls_options = TLSOptions} = State0) ->
      io:format('<--data ssl:connect(~p, ~p)~n~p~n',[Socket,TLSOptions,State0]),
      case ssl:connect(Socket, TLSOptions) of
  	{ok, TLSSocket} ->
  	    State = State0#state{dsock = {ssl, TLSSocket},
  				 tls_upgrading_data_connection = {false, undefined}},
  	    next_action_after_tls_upgrade(NextAction, State);
  	{error, _} = Error ->
  	    gen_server:reply(From,  {Error, self()}),
  	    {stop, normal, State0#state{client = undefined, 
  					caller = undefined}}
      end;
  
  handle_ctrl_result({tls_upgrade, _}, #state{csock = {tcp, Socket},
  					    tls_options = TLSOptions,
  					    caller = open, client = From} 
  		   = State) ->
      io:format('<--ctrl ssl:connect(~p, ~p)~n~p~n',[Socket,TLSOptions,State]),
      case ssl:connect(Socket, TLSOptions) of
  	{ok, TLSSocket} ->
  	    gen_server:reply(From,  {ok, self()}),
  