anchor.diff:       "'shutdown' does not cause an error message. OTP 6035"}].
   
   clean_shutdown(Config) ->
  -    PrivDir = proplists:get_value(priv_dir, Config),
  -    LogFile = filename:join([PrivDir,"ticket_6035.log"]),
  -    Host = proplists:get_value(ftpd_host,Config),
  -    try
  -	Pid  = spawn(?MODULE, open_wait_6035, [Host, self()]),
  -	    error_logger:logfile({open, LogFile}),
  -	    true = kill_ftp_proc_6035(Pid, LogFile),
  -	    error_logger:logfile(close)
  -    catch 
  -	throw:{error, not_found} ->
  -	    {skip, "No available FTP servers"}
  +    Parent = self(),
  +    HelperPid = spawn(
  +		  fun() ->
  +			  ftp__open(Config, [verbose]),
  +			  Parent ! ok,
  +			  receive
  +			      nothing -> ok
  +			  end
  +		  end),
  +    receive
  +	ok ->
  +	    PrivDir = proplists:get_value(priv_dir, Config),
  +	    LogFile = filename:join([PrivDir,"ticket_6035.log"]),
  + 	    error_logger:logfile({open, LogFile}),
  +	    exit(HelperPid, shutdown),
  +	    timer:sleep(2000),
  +	    error_logger:logfile(close),
  +	    case is_error_report_6035(LogFile) of
  +		true ->  ok;
  +		false -> {fail, "Bad logfile"}
  +	    end
       end.
   
   %%%----------------------------------------------------------------
  
positive.code:      not_owner,
       unexpected_call,
       unexpected_cast,
       unexpected_bang,
       clean_shutdown
      ].
  
  %%--------------------------------------------------------------------
  
negative.code: end_per_testcase(bad_user, _Config) -> ok;
  end_per_testcase(error_elogin, _Config) -> ok;
  end_per_testcase(error_ehost, _Config) -> ok;
  end_per_testcase(clean_shutdown, _Config) -> ok;
  end_per_testcase(_Case, Config) -> 
      case proplists:get_value(tc_status,Config) of
  	ok -> ok;
  