anchor.diff:  		_ ->
   		    Hd = refac_util:ghead("do_add_range:binary", Fs),
   		    Last = refac_util:glast("do_add_range:binary", Fs),
  -		    {S1, _E1} = get_range(Hd),
  -		    {_S2, E2} = get_range(Last),
  -		    S11 = extend_forwards(Toks, S1, "<<"),
  -		    E21 = extend_backwards(Toks, E2, ">>"),
  -		    refac_syntax:add_ann({range, {S11, E21}}, Node)
  +		    calc_and_add_range_to_node_1(Node, Toks, Hd, Last, "<<", ">>")
   	    end;
   	binary_field ->
   	    Body = refac_syntax:binary_field_body(Node),
  
positive.code: add_range_to_list_node(Node, Toks, Es, Str1, Str2, KeyWord1, KeyWord2) ->
      Hd = refac_util:ghead(Str1, Es),
      La = refac_util:glast(Str2, Es),
      {S1, _E1} = get_range(Hd),
      {_S2, E2} = get_range(La),
      S11 = extend_forwards(Toks, S1, KeyWord1),
      E21 = extend_backwards(Toks, E2, KeyWord2),
      refac_syntax:add_ann({range, {S11, E21}}, Node).
  
  add_range_to_body(Node, B, Str1, Str2) ->
      H = refac_util:ghead(Str1, B),
  
negative.code:     {_S2,E2} = get_range(Field),
      refac_syntax:add_ann({range,{S1,E2}},Node).
  
  calc_and_add_range_to_node_1(Node, Toks, StartNode, EndNode, StartWord, EndWord) ->
      {S1,_E1} = get_range(StartNode),
      {_S2,E2} = get_range(EndNode),
      S11 = extend_forwards(Toks,S1,StartWord),
      E21 = extend_backwards(Toks,E2,EndWord),
      refac_syntax:add_ann({range,{S11,E21}},Node).
  
  
  get_range(Node) ->
       As = refac_syntax:get_ann(Node),
       case lists:keysearch(range, 1, As) of
  