anchor.diff:  	    DataNeeded=lists:takewhile(fun({{{M,F,A,_}, _,_,_},_}) ->
   					       {M,F,A} =={FileName, FunName, Arity}
   						   orelse
  -						     {M,F,A} =={FileName,'_','_'}
  +						   {M,F,A} =={FileName,'_','_'}
   				       end, OldData1),
  +	    %% here 'false' means that the entry is from an existing entry.
   	    DataToAdd=[{{{M,F,A, I}, NumOfToks, {StartEndLoc, StartLine},false}, ExprHashIndex}
   		       ||{{{M,F,A, I}, NumOfToks, {StartEndLoc, _}, _},ExprHashIndex}<-DataNeeded],
   	    %%refac_io:format("DataToAdd:\n~p\n", [DataToAdd]),
  -	    hash_loop({Index, ExpHashTab, {lists:reverse(DataToAdd)++NewData, OldData}});    %% Fix this!
  +	    hash_loop({Index, ExpHashTab, {lists:reverse(DataToAdd)++NewData, OldData}}); 
   	{add_dummy, FName} ->
   	    DummyElem={{{FName, '_', '_', '_'}, 0, {{0,0},0}, false}, '#'},
   	    hash_loop({Index, ExpHashTab, {[DummyElem|NewData], OldData}});
  
positive.code: 	 var_tab, 
  	 file_hash_tab,
  	 exp_hash_tab,
  	 clone_tab}).
  
  %% A record representing a clone class.
   %% -record(clone, 
  
negative.code: 	    From ! {self(), Cs},
  	    hash_loop({Index, ExpHashTab, {NewData, OldData}});
  	stop ->
  	    file:write_file(?ExpSeqFile, term_to_binary(NewData)),
  	    ok
      end.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%                                                                    %%
  