--- db/prgsrc/delRS.pl	2001/12/04 01:49:03	1.1
+++ db/prgsrc/delRS.pl	2001/12/21 11:54:37	1.2
@@ -33,7 +33,7 @@ if ($#ARGV<2)
 
 my($dumpname, $tablename, @names)=@ARGV;
 
-open (TABLE, $tablename) or die "0: Can not open ". $tablenamename;
+open (TABLE, $tablename) or die "0: Can not open ". $tablename;
 
 open (DUMP, $dumpname) or die "0: Can not open ". $dumpname;