anchor.diff:      Options = [debug_info,binary,report_errors,report_warnings] ++ UserOptions,
       case compile:file(File, Options) of
   	{ok, Module, Binary} ->
  -	    do_compile_beam(Module,Binary);
  +	    do_compile_beam(Module,Binary,UserOptions);
   	error ->
   	    error
       end.
   
   %% Beam is a binary or a .beam file name
  -do_compile_beam(Module,Beam) ->
  +do_compile_beam(Module,Beam,UserOptions) ->
       %% Clear database
       do_clear(Module),
       
  
positive.code: 					{i, Dir} when is_list(Dir) -> true;
  					{d, _Macro} -> true;
  					{d, _Macro, _Value} -> true;
  					_ -> false
  				    end
  			    end,
  
negative.code: 	    case get_beam_file(Module,BeamFile0,Compiled0) of
  		{ok,BeamFile} ->
  		    {Reply,Compiled} = 
  			case do_compile_beam(Module,BeamFile,[]) of
  			    {ok, Module} ->
  				remote_load_compiled(State#main_state.nodes,
  						     [{Module,BeamFile}]),
  