anchor.diff:  	    load_abs(File, Mod, Caller, S)
       end;
   
  -handle_call({load_binary,Mod,File,Bin}, Caller, S) ->
  +handle_call({load_binary,Mod,File,Bin}, Caller, S) when is_atom(Mod) ->
       do_load_binary(Mod, File, Bin, Caller, S);
   
   handle_call({load_native_partial,Mod,Bin}, {_From,_Tag}, S) ->
  
positive.code:     Resp = do_dir(Root,Dir,S#state.namedb),
      {reply,Resp,S};
  
  handle_call({load_file,Mod}, Caller, St) ->
      case modp(Mod) of
  	false ->
  	    {reply,{error,badarg},St};
  	true ->
  	    load_file(Mod, Caller, St)
      end;
  
  handle_call({add_path,Where,Dir0}, {_From,_Tag},
  	    #state{namedb=Namedb,path=Path0}=S) ->
  
negative.code:     end.
  
  mod_to_bin([Dir|Tail], Mod) ->
      File = filename:append(Dir, atom_to_list(Mod) ++ objfile_extension()),
      case erl_prim_loader:get_file(File) of
  	error -> 
  	    mod_to_bin(Tail, Mod);
  