anchor.diff:  send_ctrl_message(_S=#state{csock = Socket, verbose = Verbose}, Message) ->
       verbose(lists:flatten(Message),Verbose,send),
       ?DBG('<--ctrl ~p ---- ~s~p~n',[Socket,Message,_S]),
  -    send_message(Socket, Message).
  +    ok = send_message(Socket, Message).
   
   send_data_message(_S=#state{dsock = Socket}, Message) ->
       ?DBG('<==data ~p ==== ~s~n~p~n',[Socket,Message,_S]),
  
positive.code: handle_info({Cls, Socket}, #state{dsock = {Trpt,Socket},
  					 caller = {recv_file, Fd}} 
  	    = State) when {Cls,Trpt}=={tcp_closed,tcp} ; {Cls,Trpt}=={ssl_closed,ssl} ->
      file_close(Fd),
      progress_report({transfer_size, 0}, State),
      activate_ctrl_connection(State),
      {noreply, State#state{dsock = undefined, data = <<>>}};
  
negative.code: close_connection({tcp, Socket}) -> gen_tcp:close(Socket);
  close_connection({ssl, Socket}) -> ssl:close(Socket).
  
  %%  ------------ FILE HANDLING  ----------------------------------------   
  send_file(#state{tls_upgrading_data_connection = {true, CTRL, _}} = State, Fd) ->
      {noreply, State#state{tls_upgrading_data_connection = {true, CTRL, ?MODULE, send_file, Fd}}};
  send_file(State, Fd) ->
      case file_read(Fd) of
  	{ok, N, Bin} when N > 0 ->
  	    send_data_message(State, Bin),
  	    progress_report({binary, Bin}, State),
  	    send_file(State, Fd);
  	{ok, _, _} ->
  	    ok = file_close(Fd),
  	    close_data_connection(State),
  	    progress_report({transfer_size, 0}, State),
  	    activate_ctrl_connection(State),
  