anchor.diff:  			    case lists:keysearch(File1, 1, AnnASTs) of
   				{value, {File1, AnnAST}} ->
   				    {value, {File1, Toks}} = lists:keysearch(File1, 1, ToksLists),
  -				    Units = pos_to_syntax_units(AnnAST, {{L1, C1},{L2, C2}}), 
  +				    Units = refac_util:pos_to_syntax_units(File1, AnnAST, {L1, C1},{L2, C2}, fun is_expr_or_fun/1), 
   				    case Units =/= [] of 
   					true -> 
   					    Fun2 = fun(U) ->
   							   {StartLoc, _} = refac_util:get_range(hd(U)),
  - 							   {_, EndLoc} = refac_util:get_range(lists:last(U)),
  +							   {_, EndLoc} = refac_util:get_range(lists:last(U)),
   							   Toks1 =lists:dropwhile(fun(T) ->token_loc(T)=< S end, Toks),
   							   Toks11 = lists:takewhile(fun(T) ->token_loc(T) =< StartLoc end, Toks1),
   							   Toks2 = lists:dropwhile(fun(T) ->token_loc(T) =< EndLoc end, Toks1),
  
positive.code: 		  {ok, _Res} ->
  		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
  		      stop_suffix_tree_clone_detector(),
  		      {ok, [Cs]} = file:consult(OutFileName),
  		      file:delete(OutFileName),
  		      {Toks, Cs};
  		  _ -> 
  		      stop_suffix_tree_clone_detector(),
  		      file:delete(OutFileName),
  
negative.code: 	    {V, {FileName, Ln, Col}}
      end.
  	    				
  
  is_expr_or_fun(Node) ->
      case refac_syntax:type(Node) of 
  