anchor.diff:  %%%-----------------------------------------------------------------
   %%% 
   start_node(Start,ExpStatus,ExpVsn,ExpApps) ->
  -    case open_port({spawn_executable, Start}, []) of
  +    case open_port({spawn_executable, Start}, [{env,[{"ERL_AFLAGS",false}]}]) of
           Port when is_port(Port) ->
               unlink(Port),
               erlang:port_close(Port),
  
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:                     p("wait_node_up -> [~w] expected apps", [N]),
                      {ok, Node};
                  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,_,_}],_} ->
  