anchor.diff:  		  {ok, _Res} ->
   		      ?debug("Initial clones are calculated using C suffixtree implementation.\n", []),
   		      stop_suffix_tree_clone_detector(),
  -		      {ok, [Cs]} = file:consult(OutFileName),
  +		      {ok, Res} = file:consult(OutFileName), %% Res: [Cs]
   		      file:delete(OutFileName),
  -		      {Toks, Cs};
  +		      case Res of 
  +			  [] -> {Toks, []}; 
  +			  [Cs] -> {Toks, Cs}
  +		      end;
   		  _ -> 
   		      stop_suffix_tree_clone_detector(),
   		      file:delete(OutFileName),
  
positive.code: 			    case lists:keysearch(File1, 1, AnnASTs) of
  				{value, {File1, AnnAST}} ->
  				    {value, {File1, Toks}} = lists:keysearch(File1, 1, ToksLists),
  				    Units = pos_to_syntax_units(AnnAST, {{L1, C1},{L2, C2}}), 
  				    case Units =/= [] of 
  					true -> 
  					    Fun2 = fun(U) ->
  							   {StartLoc, _} = refac_util:get_range(hd(U)),
   							   {_, EndLoc} = refac_util:get_range(lists:last(U)),
  							   Toks1 =lists:dropwhile(fun(T) ->token_loc(T)=< S end, Toks),
  							   Toks11 = lists:takewhile(fun(T) ->token_loc(T) =< StartLoc end, Toks1),
  							   Toks2 = lists:dropwhile(fun(T) ->token_loc(T) =< EndLoc end, Toks1),
  
negative.code:     Cs6 = remove_sub_clones(Cs5),
      ?debug("current time:~p\n", [time()]),
      case length(FileNames) of
           1 -> ?wrangler_io(display_clones(Cs6),[]);
           _ -> ?wrangler_io(display_clones1(Cs6),[])
        end,
      ?debug("No of Clones found:\n~p\n", [length(Cs6)]),
      ?debug("Clones:\n~p\n", [Cs6]),
  