--- db/prgsrc/delRS.pl	2001/12/04 01:49:03	1.1
+++ db/prgsrc/delRS.pl	2002/01/13 00:32:12	1.3
@@ -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;
 
@@ -83,7 +83,7 @@ close (OUTDUMP);
 sub s
 { 
    my ($s1,$s2,$s3,$kvo) = @_;
-   $unpacked=unpack("S",$s2);
+   $unpacked=unpack("S",$s2)|(($s1 & 0xF0) << 12);
    my $id=$outid{$unpacked};
    if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"}