--- db/prgsrc/dbchgk.pm	2002/01/13 00:32:12	1.9
+++ db/prgsrc/dbchgk.pm	2005/07/05 23:58:10	1.10
@@ -325,7 +325,7 @@ sub checktable # ΕΣΜΙ $param='delete' ΥΔ
 {
 	my ($TabName,$param) = @_;
 	my ($ans);
-	if (scalar(grep(/^$TabName$/i, &tablelist))) {
+	if (scalar(grep(/\`$TabName$\`/i, &tablelist))) {
 	        return 1 unless $param;
 		if ($param =~ /delete/) {$ans='y';}
                    else {
@@ -350,7 +350,7 @@ sub checktable # ΕΣΜΙ $param='delete' ΥΔ
 
 sub tablelist
 {
-     $qbase->func( '_ListTables' );
+    return $qbase->func('_ListTables');
 }
 
 sub in2out