* Patch from Ondrej Pokorny, fixing range error

git-svn-id: trunk@35519 -

packages/fcl-pdf/src/fpttfsubsetter.pp

@@ -1092,7 +1092,7 @@ begin
 
   // update head.ChecksumAdjustment field
   head.Seek(8, soBeginning);
-  WriteInt32(head, checksum);
+  WriteInt32(head, Int32(checksum));
 
   // write table bodies
   WriteTableBodies(AStream, tables);