anchor.diff:      end.
   
   prim_load_flags(Flags) ->
  -    PortPgm = get_flag('-loader',Flags,<<"efile">>),
  -    Hosts = get_flag_list('-hosts', Flags, []),
  -    Id = get_flag('-id',Flags,none),
  -    Path = get_flag_list('-path',Flags,false),
  +    PortPgm = get_flag(loader, Flags, <<"efile">>),
  +    Hosts = get_flag_list(hosts, Flags, []),
  +    Id = get_flag(id, Flags, none),
  +    Path = get_flag_list(path, Flags, false),
       {PortPgm, Hosts, Id, Path}.
   
   %%% -------------------------------------------------
  
positive.code: %%% -------------------------------------------------
  
  make_permanent(Boot,Config,Flags0,State) ->
      case set_flag('-boot',Boot,Flags0) of
  	{ok,Flags1} ->
  	    case set_flag('-config',Config,Flags1) of
  		{ok,Flags} ->
  		    {ok,State#state{flags = Flags}};
  		Error ->
  
negative.code: to_strings([H|T]) when is_binary(H) -> [b2s(H)|to_strings(T)];
  to_strings([])    -> [].
  
  get_argument(Arg, Flags) ->
      case get_argument1(Arg, Flags) of
  	[] -> error;
  	Value -> {ok,Value}
      end.
  
  get_argument1(Arg, [{Arg,V}|Args]) ->
      [to_strings(V)|get_argument1(Arg, Args)];
  get_argument1(Arg, [_|Args]) ->
      get_argument1(Arg, Args);
  get_argument1(_, []) ->
      [].
  
  set_argument([{Flag,_}|Flags],Flag,Value) ->
      [{Flag,[Value]}|Flags];
  set_argument([Item|Flags],Flag,Value) ->
      [Item|set_argument(Flags,Flag,Value)];
  