--- db/prgsrc/eq/Attic/findequal.pl	2001/05/18 02:52:59	1.2
+++ db/prgsrc/eq/Attic/findequal.pl	2001/05/18 03:12:49	1.3
@@ -60,7 +60,7 @@ while ((($id, $a) = getrow), $id)
         $a=~s/³£pPHXxAaBEe3KMoOT/åÅÒòîèÈáÁ÷åÅúëíÏïô/;
         $a=uc $a;
 
- 	$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâà]//g;
+ 	$a=~s/[^êãõëåîçûýúèÿüöäìïòðá÷ùæñþóíéôøâàÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀ]//g;
  	$ar[$id]=$a;
  	$last=$id;
 }