--- db/prgsrc/updateRS1.pl	2002/01/13 00:32:12	1.6
+++ db/prgsrc/updateRS1.pl	2002/06/15 03:43:48	1.7
@@ -143,7 +143,6 @@ foreach $wordnumber(0..$#list)
                 @n= split ' ',$n;
                 $nfkvo{$_}++ foreach @n;
                 my $r=packword($fieldnumber, $id,$wordnumber%256);
-                print "$word !$r!\n";
                 $neww2k{$_}.=$r foreach (@n);
            }
            else {