anchor.diff:  check_no_duplicates_and_sorted([], _PrevK, _LC, Duplicated) ->
       {duplicated, Duplicated}.
   
  -wash_po_file(PoToWash, DefaultPo, LC) ->
  -    PoToWash1 = add_new_delete_old_keys(PoToWash, DefaultPo),
  +wash_po_file(PoToWash, DefaultPo, LC, {OldTrans, OldUntrans}) ->
  +    {PoToWash1, New, RemovedUntrans, RemovedTrans} = 
  +	add_new_delete_old_keys(PoToWash, DefaultPo),
  +    {NewTrans, NewUntrans} = get_amount_translated_and_untranslated(PoToWash1),
  +    case NewUntrans =:= OldUntrans + New - RemovedUntrans andalso
  +	NewTrans =:= OldTrans - RemovedTrans of
  +	true  -> ok;
  +	false -> 
  +	    error_logger:error_msg("Bad washing of "++LC++". "
  +				   "Po file got corrupted"),
  +	    exit(error)
  +    end,
       case PoToWash =:= PoToWash1 of
   	false -> 
   	    error_logger:info_msg("Updating "++LC++"...~n"),
  
positive.code: 				  "in "++LC++".~n~n"),
  	    Duplicated;
  	ok ->
  	    LCPo
      end.    
  
  check_no_duplicates_and_sorted([], _LC) ->
      ok;
  
negative.code:     case read_and_check_po_file(LC) of
  	{duplicated, _D} = Duplicated -> 
  	    Duplicated;
  	{LCPo, TransUntrans} ->
  	    wash_po_file(LCPo, DefaultPo, LC, TransUntrans),
  	    update_po_files(DefaultPo, T)
      end;
  update_po_files(_DefaultPo, []) ->
  