anchor.diff:  			   SubStr <- [lists:sublist(IndexStr, S, E - S + 1)]]),
       Cs2 = refac_code_search_utils:remove_sub_clones([{R, Len, Freq} || {R, {Len, Freq}} <- Cs1]),
       NewData = lists:append([F(Elem) || Elem <- Data]),
  -    %%refac_io:format("Cs from suffixtree:\n~p\n",[NewData]),
  +    %%?debug("Cs from suffixtree:\n~p\n",[NewData]),
       get_clones_in_ranges([{R, {Len, Freq}} || {R, Len, Freq} <- Cs2],
   			 NewData, MinLen, MinToks, MinFreq).
      
  
positive.code: 		1 ->
  		    ?wrangler_io("\nChecking the first clone candidate...", []);
  		_ ->
  		    ?wrangler_io("\nChecking the ~pth clone candidate...", [Num])
  	    end;
  	_-> ok
      end.
  
negative.code:     NewCheckSum = refac_misc:filehash(File),
      case ets:lookup(Tabs#tabs.file_hash_tab, File) of
  	[{File, NewCheckSum}] ->
  	    ?debug("\nFile not changed:~p\n", [File]),
  	    ok;
  	[{File, _NewCheckSum1}] ->
  	    ?debug("\n File changed:~p\n", [File]),
  	    ets:insert(Tabs#tabs.file_hash_tab, {File, NewCheckSum}),
  	    generalise_and_hash_file_ast_1(
  	      File, Threshold, Tabs,ASTPid, false,SearchPaths, TabWidth);
  	[] ->
  	    ?debug("New file:~p\n",[File]),
  	    ets:insert(Tabs#tabs.file_hash_tab, {File, NewCheckSum}),
  	    generalise_and_hash_file_ast_1(
  	      File, Threshold, Tabs, ASTPid, true,SearchPaths, TabWidth)
  