anchor.diff:      Res =
   	case file:read_file(LogFile) of
   	    {ok, Bin} ->
  -		p("is_error_report_6035 -> logfile read"),
  -		read_log_6035(binary_to_list(Bin));
  +		Txt = binary_to_list(Bin), 
  +		p("is_error_report_6035 -> logfile read: ~n~p", [Txt]),
  +		read_log_6035(Txt);
   	    _ ->
  -		ok
  +		false
   	end,
       p("is_error_report_6035 -> logfile read result: "
         "~n   ~p", [Res]),
  -    file:delete(LogFile),
  +    %% file:delete(LogFile),
       Res.
   
   read_log_6035("=ERROR REPORT===="++_Rest) ->
  -    error_report;
  -read_log_6035([_H|T]) ->
  +    p("read_log_6035 -> ERROR REPORT detected"),
  +    true;
  +read_log_6035([H|T]) ->
  +    p("read_log_6035 -> OTHER: "
  +      "~p", [H]),
       read_log_6035(T);
   read_log_6035([]) ->
  -    ok.
  +    p("read_log_6035 -> done"),
  +    false.
   
   
   %%--------------------------------------------------------------------
  
positive.code:     p("kill_ftp_proc_6035 -> entry"),
      receive
  	open ->
  	    p("kill_ftp_proc_6035 -> received open: send shutdown"),
  	    exit(Pid, shutdown),
  	    kill_ftp_proc_6035(Pid, LogFile);
  	{open_failed, Reason} ->
  
negative.code: 	    is_error_report_6035(LogFile)
      end.
  
  open_wait_6035({Tag, FtpServer}, From) ->
      p("open_wait_6035 -> try connect to [~p] ~s for ~p", [Tag, FtpServer, From]),
      case ftp:open(FtpServer, [{timeout, timer:seconds(15)}]) of
  	{ok, Pid} ->
  	    p("open_wait_6035 -> connected (~p), now login", [Pid]),
  	    LoginResult = ftp:user(Pid,"anonymous","kldjf"),
  	    p("open_wait_6035 -> login result: ~p", [LoginResult]),
  	    From ! open,
  