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