--- db/prgsrc/dbchgk.pm	2005/07/05 23:58:10	1.10
+++ db/prgsrc/dbchgk.pm	2005/12/10 00:03:55	1.11
@@ -33,6 +33,7 @@ my $z;
 my $qbase;
 BEGIN {do "chgk.cnf"; 	
           $qbase = DBI -> connect ("DBI:mysql:$base",'piataev',undef);
+	  $qbase->do("SET NAMES koi8r");
       };