anchor.diff:      p("kill_ftp_proc_6035 -> entry"),
       receive
   	open ->
  -	    p("kill_ftp_proc_6035 -> received open: send shutdown"),
  +	    p("kill_ftp_proc_6035 -> received open => now issue shutdown"),
   	    exit(Pid, shutdown),
   	    kill_ftp_proc_6035(Pid, LogFile);
   	{open_failed, Reason} ->
  
positive.code: 	    is_error_report_6035(LogFile)
      end.
  
  open_wait_6035(FtpServer, From) ->
      p("open_wait_6035 -> try connect to ~s", [FtpServer]),
      case ftp:open(FtpServer, [{timeout, timer:seconds(15)}]) of
  	{ok, Pid} ->
  	    p("open_wait_6035 -> connected, now login"),
  	    LoginResult = ftp:user(Pid,"anonymous","kldjf"),
  	    p("open_wait_6035 -> login result: ~p", [LoginResult]),
  	    From ! open,
  
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
  