--- db/prgsrc/dbchgk.pm	2001/12/05 01:29:09	1.8
+++ db/prgsrc/dbchgk.pm	2002/01/13 00:32:12	1.9
@@ -148,7 +148,7 @@ sub packword
 {
   my ($fieldnumber,$id,$wordnumber)=@_;
 die "packword: fieldnumber is $fieldnumber! -- id=$id, word=$wordnumber\n" if $fieldnumber>6;
-  pack("CSC",$fieldnumber,$id,$wordnumber%256)
+  $r=pack("CSC",$fieldnumber|(($id >> 16) << 4),$id%65536,$wordnumber%256);
 }
 
 sub updateword2question