--- db/prgsrc/mkRS.pl	2001/10/31 03:07:27	1.2
+++ db/prgsrc/mkRS.pl	2005/07/05 20:24:17	1.6
@@ -32,16 +32,22 @@ cicles_number=1.
 
 =cut
 
+
 use locale;
 use DBI;
 use POSIX qw (locale_h);
+use lib "../lib";
 use chgkfiles;
 use dbchgk;
 my $minstop=2000;
-open (STDERR,">errors");
+
+my $DUMPDIR = $ENV{DUMPDIR} || "../dump";
+
+open (STDERR,">$DUMPDIR/errors");
 do "common.pl";
 do "chgk.cnf";
 
+
 die "Undefined \$maxwsize! check your chgk.cnf" unless $maxwsize;
 
 checktable('word2question','delete');
@@ -58,7 +64,8 @@ print "Creating word2question table...\n
                             KEY idkey (id),
 		word   INT UNSIGNED NOT NULL, 
                             KEY wordkey (word),
-		questions  MEDIUMBLOB
+		questions  MEDIUMBLOB,
+                INDEX(word)
                )"
             )