anchor.diff:      end.
   
   get_clones_by_erlang_suffix_tree(Toks, ProcessedToks, MinLength, MinClones) ->
  -    ?debug("Initial clones are calculated using Erlang suffixtree implementation.\n", []),
  -    io:format("MinClones:\n~p\n", [MinClones]),
  +    ?wrangler_io("\nWrangler failed to use the C suffixtree implementation;"
  +                 "Initial clones are calculated using Erlang suffixtree implementation.\n",[]),
       Tree = suffix_tree(alphabet() ++ "&", ProcessedToks ++ "&"),
       Cs = lists:flatten(lists:map(fun (B) ->
   					 collect_clones(MinLength, MinClones, B)
   				 end,
   				 Tree)),
  -    Cs1 = filter_out_sub_clones(Cs),
  +    Cs1 = remove_sub_clones(Cs),
       {Toks, Cs1}.
       
   call_port(Msg) ->
  
positive.code: 
  -export([duplicated_code_1/3]).
  
  -export([tokenize/1]).
  
  -compile(export_all).
  
  %% TODO:  
  %% 1) does recusive function calls affect the result?
  %% 2) does qualifed names affect the result? 
  
negative.code: -define(DEFAULT_MIN_CLONE_MEMBER, 1).
  
  
  %% -define(DEBUG, true).
  
  -ifdef(DEBUG).
  -define(debug(__String, __Args), ?wrangler_io(__String, __Args)).
  