anchor.diff:  set_argument([],Flag,Value) ->
       [{Flag,[Value]}].
   
  -concat([A|T]) when is_atom(A) ->
  -    atom_to_list(A) ++ concat(T);
  -concat([C|T]) when is_integer(C), 0 =< C, C =< 255 ->
  -    [C|concat(T)];
  -concat([Bin|T]) when is_binary(Bin) ->
  -    binary_to_list(Bin) ++ concat(T);
  -concat([S|T]) ->
  -    S ++ concat(T);
  -concat([]) ->
  -    [].
  -
   append([E]) -> E;
   append([H|T]) ->
       H ++ append(T);
  
positive.code:     {bs2ss(Pa),bs2ss(Pz)}.
  
  get_boot(BootFile0,Root) ->
      BootFile = concat([BootFile0,".boot"]),
      case get_boot(BootFile) of
  	{ok, CmdList} ->
  	    CmdList;
  	not_found -> %% Check for default.
  	    BootF = concat([Root,"/bin/",BootFile]),
  	    case get_boot(BootF)  of
  		{ok, CmdList} ->
  		    CmdList;
  
negative.code:     Vars.
  
  bootfile(Flags,Root) ->
      b2s(get_flag(boot, Flags, Root++"/bin/start")).
  
  path_flags(Flags) ->
      Pa = append(reverse(get_flag_args(pa, Flags))),
  