--- db/prgsrc/delRS.pl	2001/12/21 11:54:37	1.2
+++ db/prgsrc/delRS.pl	2002/01/13 00:32:12	1.3
@@ -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"}