--- db/prgsrc/checkPBS.pl	2001/11/01 01:44:59	1.3
+++ db/prgsrc/checkPBS.pl	2002/01/13 00:32:12	1.4
@@ -26,7 +26,7 @@ getword2question;
 while (($word,$blob)=getrow,$word)
 {
   print "$sch...\n" unless (++$sch%100);
-  $is{unpack("S",$_)}=1 foreach $blob=~/.(..)./sg;
+  $is{unpack("L",$_) & 0xFFFFF}=1 foreach $blob=~/(...)./sg;
 }
 
 mydo ("UPDATE Questions SET ProcessedBySearch=1 where QuestionId=$_")