anchor.diff:  				     end.
   
   
  -get_clones_by_suffix_tree(Dir, ProcessedToks,MinLength, MinClones, Alphabet) ->
  +get_clones_by_suffix_tree(Dir, ProcessedToks,MinLength, MinClones, Alphabet, AllowOverLap) ->
       start_suffix_tree_clone_detector(),
       OutFileName = filename:join(Dir, "wrangler_suffix_tree"), 
       case file:write_file(OutFileName, ProcessedToks) of 
  -	ok -> case  catch call_port({get, MinLength, MinClones, OutFileName}) of
  +	ok -> case  catch call_port({get, MinLength, MinClones, AllowOverLap, OutFileName}) of
   		  {ok, _Res} ->
   		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
   		      stop_suffix_tree_clone_detector(),
  
positive.code: 
  -export([init/1, collect_vars/1]).
  
  -export([get_clones_by_suffix_tree/5,
  	 get_clones_by_erlang_suffix_tree/4, 
  	 display_clone_result/2, remove_sub_clones/1]).
  
  -compile(export_all).
  
negative.code: 
  %% =====================================================================
  %% Construction of suffix tree.
  suffix_tree(Alpha, T, AllowOverLap) -> 
      Tree = suffix_tree_1(Alpha, length(T),suffixes(T)),
      post_process_suffix_tree(Tree, AllowOverLap).
    
  
  suffix_tree_1(_Alpha, _Len, [[]]) -> leaf;
  