--- db/prgsrc/eq/Attic/findequal.pl	2001/05/18 22:46:54	1.5
+++ db/prgsrc/eq/Attic/findequal.pl	2001/05/18 22:50:25	1.7
@@ -32,8 +32,18 @@ use POSIX qw (locale_h);
 
 do "common.pl";
 
+if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
+
+print "before checktable";
+
+
 if (checktable('equalto')) {die "The table equalto exists. You must delete it first!\n"};
 
+if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
+
+print "before mydo";
+
+
 print "Creating equalto table...\n";
 
 	mydo("CREATE TABLE equalto (