--- Merging r41185 into '.':

U    rtl/objpas/classes/bits.inc
--- Recording mergeinfo for merge of r41185 into '.':
 U   .

# revisions: 41185

git-svn-id: branches/fixes_3_2@41186 -

rtl/objpas/classes/bits.inc

@@ -107,7 +107,7 @@ begin
    end;
 
    if FSize < MaxBitRec then
-     result := FSize * 32;  {first bit of next record}
+     result := FBSize;  {first bit of next record}
 end;
 
 { ******************** TBits ***************************** }