anchor.diff:  
   get_clones_by_erlang_suffix_tree(Toks, ProcessedToks, MinLength, MinClones) ->
       ?wrangler_io("\nWrangler failed to use the C suffixtree implementation;"
  -                 "Initial clones are calculated using Erlang suffixtree implementation.\n",[]),
  +                 " 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)
  
positive.code: 		  {ok, _Res} ->
  		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
  		      stop_suffix_tree_clone_detector(),
  		      {ok, Res} = file:consult(OutFileName), %% Res: [Cs]
  		      file:delete(OutFileName),
  		      case Res of 
  			  [] -> {Toks, []}; 
  			  [Cs] -> {Toks, Cs}
  		      end;
  		  _ -> 
  		      stop_suffix_tree_clone_detector(),
  		      file:delete(OutFileName),
  		      get_clones_by_erlang_suffix_tree(Toks, ProcessedToks, MinLength, MinClones)
  
negative.code: 	    end,
  	    loop(Port);
      stop ->
          erlang:port_close(Port)
      end.
  
   
  