anchor.diff:                      p("wait_node_up -> [~w] expected apps", [N]),
                       {ok, Node};
                   UnexpApps ->
  -                    p("wait_node_up -> [~w] still wrong apps:"
  -                      "~n      ~p", [N, UnexpApps]),
  +                    p("wait_node_up -> [~w] still wrong apps:~n"
  +                      "Missing:~p~n"
  +                      "Extra:  ~p~n"
  +                      "All:    ~p~n"
  +                      , [N, ExpApps -- UnexpApps, UnexpApps -- ExpApps, UnexpApps]),
                       wait_node_up(Node, ExpStatus, ExpVsn, ExpApps, N-1)
               end;
           {[{_,Vsn,_,_}],_} ->
  
positive.code:     wait_node_up(Node, ExpStatus, ExpVsn, lists:keysort(1,ExpApps), 60).
  
  wait_node_up(Node, ExpStatus, ExpVsn, ExpApps, 0) ->
      p("wait_node_up -> fail"),
      ct:fail({app_check_failed,ExpVsn,ExpApps,
  	     rpc:call(Node, release_handler, which_releases,     [ExpStatus]),
  	     rpc:call(Node, application,     which_applications, [])});
  
negative.code: %%%-----------------------------------------------------------------
  %%% 
  start_node(Start,ExpStatus,ExpVsn,ExpApps) ->
      case open_port({spawn_executable, Start}, [{env,[{"ERL_AFLAGS",false}]}]) of
          Port when is_port(Port) ->
              unlink(Port),
              erlang:port_close(Port),
  