anchor.diff:  	{remote,load_compiled,Compiled} ->
   	    Compiled1 = load_compiled(Compiled,State#remote_state.compiled),
   	    remote_reply(State#remote_state.main_node, ok),
  -	    remote_process_loop(State#remote_state{compiled=Compiled1});
  +	    ?MODULE:remote_process_loop(State#remote_state{compiled=Compiled1});
   
   	{remote,unload,UnloadedModules} ->
   	    unload(UnloadedModules),
  
positive.code: compile_beam_directory(Dir) when is_list(Dir) ->
      case file:list_dir(Dir) of
  	{ok, Files} ->
  	    
  	    %% Filter out all beam files (except cover.beam)
  	    BeamFileNames =
  		lists:filter(fun("cover.beam") ->
  				     false;
  				(File) ->
  				     case filename:extension(File) of
  					 ".beam" -> true;
  					 _ -> false
  				     end
  			     end,
  			     Files),
  
  	    %% Create a list of .beam file names (incl path) and call
  	    %% compile_beam/1 for each such file name
  	    BeamFiles = lists:map(fun(BeamFileName) ->
  					  filename:join(Dir, BeamFileName)
  				  end,
  				  BeamFileNames),
  	    compile_beams(BeamFiles);
  	Error ->
  	    Error
  
negative.code: compile_directory(Dir, Options) when is_list(Dir), is_list(Options) ->
      case file:list_dir(Dir) of
  	{ok, Files} ->
  	    ErlFiles = [filename:join(Dir, File) ||
  			   File <- Files,
  			   filename:extension(File) =:= ".erl"],
  	    compile_modules(ErlFiles, Options);
  	Error ->
  	    Error
  