--- db/prgsrc/updateRS1.pl	2002/06/15 03:43:48	1.7
+++ db/prgsrc/updateRS1.pl	2002/06/15 03:46:31	1.8
@@ -172,7 +172,6 @@ foreach $wordnumber(0..$#list)
                        $nfkvo{$nfnumber}++;
                        $a=\$neww2k{$nfnumber};
                        my $r=packword($fieldnumber, $id,$wordnumber);
-print "$word !!$r!\n";
                        $$a.=$r;
                        if (length $$a>100) {flushw2k($nfnumber)}
                    }
@@ -181,7 +180,6 @@ print "$word !!$r!\n";
                       $nfnumber=addnf(0, $f, $flag,1);
                       $newnf{uc $word}.=" $nfnumber";
                        my $r=packword($fieldnumber, $id,$wordnumber);
-print "$word !!!$r!\n";
                       $neww2k{$nfnumber}.=$r;
                    }
                }