anchor.diff:      exit({'unexpected command in bootfile',What}).
   
   load_modules([Mod|Mods], Init) ->
  -    File = concat([Mod,objfile_extension()]),
  +    File = atom_to_list(Mod) ++ objfile_extension(),
       {ok,Full} = load_mod(Mod,File),
       Init ! {self(),loaded,{Mod,Full}},	%Tell init about loaded module
       load_modules(Mods, Init);
  
positive.code: 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);
  
negative.code:     {bs2ss(Pa),bs2ss(Pz)}.
  
  get_boot(BootFile0,Root) ->
      BootFile = BootFile0 ++ ".boot",
      case get_boot(BootFile) of
  	{ok, CmdList} ->
  	    CmdList;
  	not_found -> %% Check for default.
  	    BootF = Root ++ "/bin/" ++ BootFile,
  	    case get_boot(BootF)  of
  		{ok, CmdList} ->
  		    CmdList;
  