anchor.diff:  handle_info({tcp, Socket, Data}, #state{dsock = {tcp,Socket}, client = From,	
   					caller = recv_chunk} 
   	    = State)  ->    
  +    io:format('L~p --data ~p ----> ~s~p~n',[?LINE,Socket,Data,State]),
       gen_server:reply(From, {ok, Data}),
       {noreply, State#state{client = undefined, data = <<>>}};
   
   handle_info({tcp, Socket, Data}, #state{dsock = {tcp,Socket}} = State0) ->
  +    io:format('L~p --data ~p ----> ~s~p~n',[?LINE,Socket,Data,State0]),
       State = activate_data_connection(State0),
       {noreply, State#state{data = <<(State#state.data)/binary,
   				  Data/binary>>}};
  
positive.code: handle_info({tcp, Socket, Data}, 
  	    #state{dsock = {tcp,Socket},
  		   caller = {recv_file, Fd}} = State0) ->    
      file_write(binary_to_list(Data), Fd),
      progress_report({binary, Data}, State0),
      State = activate_data_connection(State0),
  
negative.code: 					  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;
  