anchor.diff:  	{reply, Reply, State};
   
   handle_call({applications, Node}, From, State) ->
  -	Reply = get_applications1(Node),
  +	Reply = get_applications2(Node, application:loaded_applications()),
   	{reply, Reply, State};
   
   handle_call({etop, Node}, From, State) ->
  
positive.code: %% --------------------------------------------------------------------
  -include_lib("eunit/include/eunit.hrl").
  -ifdef(TEST).
  convert_app_info_test() ->
  A={{"<0.77.0>",
    [{"tranceiver_sup : <0.80.0>",
  
negative.code: 	Apps = process_info:get_applications(Node),
  	[{Node, ''}|[{X, Node} || X <- Apps]].
  
  get_applications2(Node, Apps) ->
  	[{Node,[], [], ''}|[{App, Version, Tool, Node} || {App, Tool, Version} <- Apps]].	
  
  etop1(Node) ->
  	case rpc:call(Node, sue_etop, collect, []) of
  		{badrpc,nodedown} -> [];
  