anchor.diff:  	    is_error_report_6035(LogFile)
       end.
   
  -open_wait_6035(FtpServer, From) ->
  -    p("open_wait_6035 -> try connect to ~s", [FtpServer]),
  +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, now login"),
  +	    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,
  
positive.code:     Res =
  	case file:read_file(LogFile) of
  	    {ok, Bin} ->
  		p("is_error_report_6035 -> logfile read"),
  		read_log_6035(binary_to_list(Bin));
  	    _ ->
  		ok
  	end,
      p("is_error_report_6035 -> logfile read result: "
        "~n   ~p", [Res]),
      file:delete(LogFile),
      Res.
  
  read_log_6035("=ERROR REPORT===="++_Rest) ->
      error_report;
  read_log_6035([_H|T]) ->
      read_log_6035(T);
  read_log_6035([]) ->
      ok.
  
  
  %%--------------------------------------------------------------------
  
negative.code:     LogFile = filename:join([PrivDir,"ticket_6035.log"]),
      try
  	begin
  	    p("ticket_6035 -> select ftpd host"),
  	    Host = dirty_select_ftpd_host(Config), 
  	    p("ticket_6035 -> ftpd host selected (~p) => now spawn ftp owner", [Host]),
  	    Pid  = spawn(?MODULE, open_wait_6035, [Host, self()]),
  	    p("ticket_6035 -> waiter spawned: ~p => now open error logfile (~p)", 
  	      [Pid, LogFile]),
  	    error_logger:logfile({open, LogFile}),
  	    p("ticket_6035 -> error logfile open => now kill waiter process"),
  	    true = kill_ftp_proc_6035(Pid, LogFile),
  	    p("ticket_6035 -> waiter process killed => now close error logfile"),
  	    error_logger:logfile(close),
  	    p("ticket_6035 -> done", []),
  	    ok
  