anchor.diff:  		  {ok, _Res} ->
   		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
   		      stop_suffix_tree_clone_detector(),
  -		      {ok, Res} = file:consult(OutFileName), %% Res: [Cs]
  +		      {ok, Res} = file:consult(OutFileName), 
   		      file:delete(OutFileName),
   		      case Res of 
   			  [] -> {Toks, []}; 
   			  [Cs] -> {Toks, Cs}
   		      end;
  -		  _ -> 
  +		  E -> 
   		      stop_suffix_tree_clone_detector(),
   		      file:delete(OutFileName),
   		      get_clones_by_erlang_suffix_tree(Toks, ProcessedToks, MinLength, MinClones)
  
positive.code: 	    end,
  	    loop(Port);
      stop ->
          erlang:port_close(Port),
          exit(normal)
      end.
  
   
  
negative.code: 
  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",[]),
      Tree = suffix_tree(alphabet() ++ "&", ProcessedToks ++ "&"),
      Cs = lists:flatten(lists:map(fun (B) ->
  					 collect_clones(MinLength, MinClones, B)
  