anchor.diff:  	    io:format("<<<<<< CosFileTransfer Testing Configuration >>>>>>~n",[]),
   	    io:format("Source: ~p~nTarget: ~p~n", [TEST_SOURCE, TEST_TARGET]),
   	    
  -	    ?line ?match(ok, remote_apply(Node, ?MODULE, install_data, 
  +	    ?match(ok, remote_apply(Node, ?MODULE, install_data, 
   					  [Type, {WhichType, Host, Name}])),
   
  -	    ?line VFST = ?match({'IOP_IOR',"IDL:omg.org/CosFileTransfer/VirtualFileSystem:1.0",_}, 
  +	    VFST = ?match({'IOP_IOR',"IDL:omg.org/CosFileTransfer/VirtualFileSystem:1.0",_}, 
   				corba:string_to_object("corbaname::1.2@localhost:"++integer_to_list(Port)++"/NameService#"++Name)),
   
   
               %% Create a Virtual File System.
  -	    ?line VFS = ?match({_,_,_,_,_,_},
  +	    VFS = ?match({_,_,_,_,_,_},
   			       cosFileTransferApp:create_VFS(WhichType, [], Host, ?FTP_PORT, 
   							     [{protocol, Type}])),
               %% Start two File Transfer Sessions (Source and Target).
  -	    ?line {FST, _DirT} = ?match({{_,_,_},{_,_,_}},
  +	    {FST, _DirT} = ?match({{_,_,_},{_,_,_}},
   					'CosFileTransfer_VirtualFileSystem':login(VFST, 
   										  ?FTP_USER, 
   										  ?FTP_PASS, 
   										  ?FTP_ACC)),
  -	    ?line {FSS, DirS} = ?match({{_,_,_,_,_,_},{_,_,_,_,_,_}},
  +	    {FSS, DirS} = ?match({{_,_,_,_,_,_},{_,_,_,_,_,_}},
   				       'CosFileTransfer_VirtualFileSystem':login(VFS, 
   										 ?FTP_USER, 
   										 ?FTP_PASS, 
   										 ?FTP_ACC)),
   
               %% Do some basic test on one of the Directories attributes.
  -	    ?line ?match([_H|_], 'CosFileTransfer_Directory':'_get_name'(DirS)),
  -	    ?line ?match([_H|_], 'CosFileTransfer_Directory':'_get_complete_file_name'(DirS)),
  -	    ?line ?match({'IOP_IOR',[],[]}, 'CosFileTransfer_Directory':'_get_parent'(DirS)),
  -	    ?line ?match(FSS, 'CosFileTransfer_Directory':'_get_associated_session'(DirS)),
  +	    ?match([_H|_], 'CosFileTransfer_Directory':'_get_name'(DirS)),
  +	    ?match([_H|_], 'CosFileTransfer_Directory':'_get_complete_file_name'(DirS)),
  +	    ?match({'IOP_IOR',[],[]}, 'CosFileTransfer_Directory':'_get_parent'(DirS)),
  +	    ?match(FSS, 'CosFileTransfer_Directory':'_get_associated_session'(DirS)),
   
               %% Get a FileList before we create any new Files
  -	    ?line #'CosFileTransfer_FileWrapper'{the_file = Dir} = 
  +	    #'CosFileTransfer_FileWrapper'{the_file = Dir} = 
   		?match({'CosFileTransfer_FileWrapper', _, ndirectory},
   		       'CosFileTransfer_FileTransferSession':get_file(FSS, TEST_DIR)),
  -	    ?line {ok,FileList, Iter1} = ?match({ok,_,_}, 'CosFileTransfer_Directory':list(Dir, 10)),
  -	    ?line loop_files(FileList),
  +	    {ok,FileList, Iter1} = ?match({ok,_,_}, 'CosFileTransfer_Directory':list(Dir, 10)),
  +	    loop_files(FileList),
   
   	    case Iter1 of
   		{'IOP_IOR',[],[]} ->
   		    ok;
   		_->
  -		    ?line ?match(ok, 'CosFileTransfer_FileIterator':destroy(Iter1))
  +		    ?match(ok, 'CosFileTransfer_FileIterator':destroy(Iter1))
   	    end,
   	    
   	    #any{value=Count1} = ?match({any, _, _}, 'CosPropertyService_PropertySet':
  
positive.code: 	    ?match(true, (Count1 == Count3)),
  
  
  	    ?line ?match(false, corba_object:non_existent(FSS)),
  	    ?line ?match(false, corba_object:non_existent(FST)),
  	    ?line ?match(ok, 'CosFileTransfer_FileTransferSession':logout(FSS)),
  	    ?line ?match(ok, 'CosFileTransfer_FileTransferSession':logout(FST)),
              %% To make sure Orber can remove it from mnesia.
  	    timer:sleep(2000),
  	    ?line ?match(true, corba_object:non_existent(FSS)),
  	    ?line ?match(true, corba_object:non_existent(FST)),
  	    ?line ?match(ok, remote_apply(Node, ?MODULE, uninstall_data, [Name])),
  	    stop_orber_remote(Node, normal),
  	    ok
      end.
  
negative.code:     [_, Host] = ?match([_,_],string:tokens(atom_to_list(node()), [$@])),
      case starter(Host, Name, Args) of
  	{ok, NewNode} ->
              ?match(pong, net_adm:ping(NewNode)),
              {ok, Cwd} = file:get_cwd(),
              Path = code:get_path(),
              ?match(ok, rpc:call(NewNode, file, set_cwd, [Cwd])),
              true = rpc:call(NewNode, code, set_path, [Path]),
  	    ?match(ok, start_orber_remote(NewNode, Type, Options, Port)),
              spawn_link(NewNode, ?MODULE, slave_sup, []),
  