anchor.diff:  fts_ftp_file_ssl_api(doc) -> ["CosFileTransfer FTP FileTransferSession API tests.", ""];
   fts_ftp_file_ssl_api(suite) -> [];
   fts_ftp_file_ssl_api(Config) ->
  -    case os:type() of
  -        vxworks ->
  -	    {skipped, "No SSL-support for VxWorks."};
  -        _ ->
  -	    ?line {ok, Node} = create_node("ftp_file_api_ssl", {4005, 1}, ssl),
  -	    file_helper(Config, 'FTP', ?TEST_DIR, Node, 4005, "ftp_file_api_ssl", ssl)
  -    end.
  +    ?line {ok, Node} = create_node("ftp_file_api_ssl", {4005, 1}, ssl),
  +    file_helper(Config, 'FTP', ?TEST_DIR, Node, 4005, "ftp_file_api_ssl", ssl).
   
   fts_native_file_api(doc) -> ["CosFileTransfer NATIVE FileTransferSession API tests.", ""];
   fts_native_file_api(suite) -> [];
  
positive.code: fts_native_file_ssl_api(doc) -> ["CosFileTransfer NATIVE FileTransferSession API tests.", ""];
  fts_native_file_ssl_api(suite) -> [];
  fts_native_file_ssl_api(Config) ->
      case os:type() of
          vxworks ->
  	    {skipped, "No SSL-support for VxWorks."};
          _ ->
  	    ?line {ok, Node} = create_node("native_file_ssl_api", {4007, 1}, ssl),
  	    {ok, Pwd} = file:get_cwd(),
  	    file_helper(Config,{'NATIVE', 'cosFileTransferNATIVE_file'},filename:split(Pwd),
  			Node, 4007, "native_file_ssl_api", ssl)
      end.   
  				 
  
  
  
negative.code: 
  stopper(Node, Type) ->
      catch stop_orber_remote(Node, Type),
      slave:stop(Node).
  -endif.
    
  %%------------------------------------------------------------
  