--- db/prgsrc/eq/Attic/findequal.pl	2001/05/18 03:12:49	1.3
+++ db/prgsrc/eq/Attic/findequal.pl	2001/05/18 22:46:54	1.5
@@ -44,14 +44,17 @@ print "Creating equalto table...\n";
 	or die "Can't create equalto table: $!\n";
 
 
+if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
+print "before getbase";
 
 getbase(QuestionId,Question);
 
 
+print "after getbase";
 
 print "Loading questions...\n";
 
-#if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
+if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};
 
 while ((($id, $a) = getrow), $id) 
 {