anchor.diff:      (catch erlang:system_info({purify, "Node: " ++ atom_to_list(node())})),
   
       start_em(Start).
  +
  +get_root(Flags) ->
  +    case get_argument(root, Flags) of
  +	{ok,[[Root]]} ->
  +	    Root;
  +	_ ->
  +	    exit(no_or_multiple_root_variables)
  +    end.
   
   bootfile(Flags,Root) ->
       b2s(get_flag(boot, Flags, concat([Root,"/bin/start"]))).
  
positive.code: reverse([A, B | L]) ->
      lists:reverse(L, [B, A]). % BIF
  			
  search(Key, [H|_T]) when is_tuple(H), element(1, H) =:= Key ->
      {value, H};
  search(Key, [_|T]) ->
      search(Key, T);
  search(_Key, []) ->
      false.
  
  -spec objfile_extension() -> nonempty_string().
  objfile_extension() ->
      ".beam".
  
negative.code: do_boot(Init,Flags,Start) ->
      process_flag(trap_exit,true),
      {Pgm0,Nodes,Id,Path} = prim_load_flags(Flags),
      Root = get_root(Flags),
      PathFls = path_flags(Flags),
      Pgm = b2s(Pgm0),
      _Pid = start_prim_loader(Init,b2a(Id),Pgm,bs2as(Nodes),
  