--- db/prgsrc/mkRS.pl	2001/11/01 01:44:59	1.4
+++ db/prgsrc/mkRS.pl	2003/02/13 16:27:32	1.5
@@ -32,6 +32,7 @@ cicles_number=1.
 
 =cut
 
+
 use locale;
 use DBI;
 use POSIX qw (locale_h);
@@ -39,10 +40,14 @@ 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');