anchor.diff:      #state{mode = Mode,
   	   source = Source,
   	   module = Module,
  -	   forms_or_bin = FormsOrBin} =
  +	   forms_or_bin = FormsOrBin,
  +	   has_records = HasRecs} =
   	case ScriptType of
   	    archive ->
   		%% Archive file
  
positive.code:     case S of
  	#state{n_errors = Nerrs} when Nerrs =/= 0 ->
  	    fatal("There were compilation errors.");
  	#state{exports_main = ExpMain, 
  	       has_records = HasRecs,
  	       forms_or_bin = [FileForm2, ModForm2 | Forms]} ->
  	    %% Optionally add export of main/1
  	    Forms2 =
  
negative.code:     case Parsed of
          {ok, Form} ->
              case Form of
                  {attribute,_,record, _} ->
  		    S2 = S#state{has_records = true},
  		    epp_parse_file(Epp, S2, [Form | Forms]);
                  {attribute,Ln,mode,NewMode} ->
                      S2 = S#state{mode = NewMode},
                      if
  