--- db/prgsrc/updateRS1.pl	2001/11/01 01:45:00	1.3
+++ db/prgsrc/updateRS1.pl	2001/12/10 20:37:23	1.5
@@ -64,7 +64,7 @@ my $nf;
 
 #open WARN, ">$warnings";
 
-%forbidden=checktable('equalto')? getequalto : ();
+#%forbidden=checktable('equalto')? getequalto : ();
 
 
 if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
@@ -86,6 +86,7 @@ foreach $d(@dictionaries)
      	chomp;
      	s/\s*$//;
        	($aa,$b)=split(/\//);
+       	$aa=~tr/£³/Åå/;
     	$a= uc $aa;
     	$words{$a}.=$b || "!";
      }