anchor.diff:  		    FieldList),
       put_records([{Name,KeyList}|get_records()]).
   
  -record_field({record_field,_,{atom,Line0,FieldName}}, C) ->
  -    {FieldName,C,{atom,Line0,undefined}};
  +record_field({record_field,_,{atom,Anno0,FieldName}}, C) ->
  +    {FieldName,C,{atom,Anno0,undefined}};
   record_field({record_field,_,{atom,_,FieldName},Def}, C) ->
       {FieldName,C,Def};
   record_field({typed_record_field,Field,_Type}, C) ->
  
positive.code: 					 {NV,B1} = th(Value,B0,OB),
  					 {[{{default},NV}|L],B1};
  				    (_,_) ->
  					 throw({error,Line,{?ERR_HEADBADREC,
  							    RName}})
  				 end,
  				 {[],B},
  
negative.code: %% Could be more efficient...
  check_multi_field(_, _, [], _) ->
      ok;
  check_multi_field(RName, Anno, [{Key,_}|T], ErrCode) ->
      case lists:keymember(Key,1,T) of
  	true ->
  	    throw({error,Anno,{ErrCode,RName,Key}});
  	false ->
  	    check_multi_field(RName, Anno, T, ErrCode)
      end.
  check_undef_field(_, _, [], _, _) ->
      ok;
  check_undef_field(RName, Anno, [{Key,_}|T], FieldList, ErrCode) ->
      case lists:keymember(Key, 1, FieldList) of
  	true ->
  	    check_undef_field(RName, Anno, T, FieldList, ErrCode);
  	false ->
  	    throw({error,Anno,{ErrCode,RName,Key}})
      end.
  
  cre_bind() ->
  