anchor.diff:  %%         atom() if a single arg was given.
   %%         list(atom()) if several args were given.
   %%
  -get_flag(F,Flags,Default) ->
  -    case catch get_flag(F,Flags) of
  -	{'EXIT',_} ->
  -	    Default;
  -	Value ->
  -	    Value
  -    end.
  -
  -get_flag(F,Flags) ->
  -    case search(F,Flags) of
  -	{value,{F,[]}} ->
  +get_flag(F, Flags, Default) ->
  +    case lists:keyfind(F, 1, Flags) of
  +	{F,[]} ->
   	    true;
  -	{value,{F,[V]}} ->
  +	{F,[V]} ->
   	    V;
  -	{value,{F,V}} ->
  +	{F,V} ->
   	    V;
   	_ ->
  -	    exit(list_to_atom(concat(["no ",F," flag"])))
  +	    Default
       end.
   
   %%
   %% Internal get_flag function, with default value.
   %% Return: list(atom()) 
   %%
  -get_flag_list(F,Flags,Default) ->
  -    case catch get_flag_list(F,Flags) of
  -	{'EXIT',_} ->
  -	    Default;
  -	Value ->
  -	    Value
  -    end.
  -
  -get_flag_list(F,Flags) ->
  -    case search(F,Flags) of
  -	{value,{F,V}} ->
  +get_flag_list(F, Flags, Default) ->
  +    case lists:keyfind(F, 1, Flags) of
  +	{F,[_|_]=V} ->
   	    V;
   	_ ->
  -	    exit(list_to_atom(concat(["no ",F," flag"])))
  +	    Default
       end.
   
   %%
  
positive.code:     (catch erlang:system_info({purify, "Node: " ++ atom_to_list(node())})),
  
      start_em(Start).
  
  bootfile(Flags,Root) ->
      b2s(get_flag(boot, Flags, concat([Root,"/bin/start"]))).
  
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),
  