anchor.diff:                end,
       do_save_file(SaveAll, Ext, St).
   
  -do_save_file(Save, Ext, St) ->
  +do_save_file(SaveAll, Ext, St) ->
       Name = filename:join(St#comp.odir, St#comp.base ++ ["."|Ext]),
       %% delayed_write useful here but plays havoc with erjang.
       case file:open(Name, [write]) of
           {ok,File} ->
  -            Ret = Save(File, St#comp.code),
  +            Ret = SaveAll(File, St#comp.code),
               ok = file:close(File),
               case Ret of
                   ok -> {ok,St};
  -                {error,E} -> {error,St#comp{errors=[{file,E}]}}
  +                {error,_} ->
  +		    %% Just signal we couldn't write the file.
  +		    {error,St#comp{errors=[{lfe_comp,write_file}]}}
               end;
  -        {error,E} -> {error,St#comp{errors=[{file,E}]}}
  +        {error,_} ->
  +	    %% Just signal we couldn't write the file.
  +	    {error,St#comp{errors=[{lfe_comp,write_file}]}}
       end.
   
   do_add_docs(#comp{cinfo=Ci,code=Ms0}=St0) ->
  
positive.code: %%  Return the default compiler options.
  
  -define(DEFAULT_OPTS, [verbose,report]).
  
  default_options() -> ?DEFAULT_OPTS.
  
  
negative.code:     Name = filename:join(St#comp.odir, lists:concat([M,".beam"])),
      case file:write_file(Name, Beam) of
          ok -> Mod;
          {error,_} ->
  	    %% Just signal we couldn't write the file.
              {error,[{lfe_comp,write_file}],[]}
      end.
  
  %% fix_erl_errors([{File,Errors}]) -> Errors.
  