anchor.diff:  			       _ -> add_category(Argument, C)
   			     end,
   		 Type1 = add_category(Type, record_type),
  -		 Fields1 = add_category(Fields, C),
  +		 Fields1 = add_category(Fields, record_field),
   		 Node1 = rewrite(Node, refac_syntax:record_expr(Argument1, Type1, Fields1)),
   		 {refac_syntax:add_ann({category, C}, Node1), true};
   	     record_index_expr ->
  
positive.code: 		 Value = refac_syntax:record_field_value(Node),
  		 Value1 = case Value of
  			    none -> none;
  			    _ -> add_category(Value, C)
  			  end,
  		 Node1 = rewrite(Node, refac_syntax:record_field(Name1, Value1)),
  		 {refac_syntax:add_ann({category, record_field}, Node1), true};
  
negative.code:     [{A,V}||{A, V}<-NewInfo, V=/=[]].
  	     
    
    
  annotate_bindings(FName, AST, Info, Ms, TabWidth) ->
      Toks = tokenize(FName, true, TabWidth),
      AnnAST0 = refac_syntax_lib:annotate_bindings(add_tokens(AST, Toks), ordsets:new(), Ms),
      AnnAST1 = add_range_to_body(AnnAST0, refac_syntax:form_list_elements(AnnAST0), "", ""),
      refac_annotate_ast:add_fun_define_locations(AnnAST1, Info).
  
     
  %% Attach tokens to each form in the AST.
  %%-spec add_tokens(syntaxTree(), [token()]) -> syntaxTree(). 		 
  add_tokens(SyntaxTree, Toks) ->
  