anchor.diff:  	    E31 = extend_backwards(Toks, E3, ')'),
   	    update_ann(Node, {range, {S3, E31}});
   	case_expr ->
  -	    A = refac_syntax:case_expr_argument(Node),
  +            A = refac_syntax:case_expr_argument(Node),
   	    Lc = refac_misc:glast("refac_util:do_add_range,case_expr", refac_syntax:case_expr_clauses(Node)),
   	    calc_and_add_range_to_node_1(Node, Toks, A, Lc, 'case', 'end');
   	clause ->
  
positive.code: 			    _ -> add_category(Argument, C)
  			end,
  	    Type1 = add_category(Type, record_type),
  	    Fields1 =[refac_syntax:add_ann({category, record_field},rewrite(F, refac_syntax:record_field(
  			add_category(refac_syntax:record_field_name(F), record_field),
  			case refac_syntax:record_field_value(F) of 
  			    none -> 
  				none;
  			    V -> 
  				add_category(V, C)
  			end))) || F<-Fields],
  	    Node1 = rewrite(Node, refac_syntax:record_expr(Argument1, Type1, Fields1)),
  	    {update_ann(Node1, {category, C}), true};
  	record_index_expr ->
  
negative.code: 		 end,
  	    Node1 =rewrite(Node, refac_syntax:clause(P1, G1, Body1)),
  	    {Node1, true};
  	match_expr ->
  	    P = refac_syntax:match_expr_pattern(Node),
  	    B = refac_syntax:match_expr_body(Node),
  