* A forgotten part of r13824: the condition in assertion must be the same as the condition of calling TNodePool.AddExtent.

git-svn-id: trunk@14644 -

packages/fcl-xml/src/dom.pp

@@ -3289,7 +3289,7 @@ var
   ext: PExtent;
 begin
   Assert((FCurrExtent = nil) or
-    (PAnsiChar(FCurrBlock) = PAnsiChar(FCurrExtent) + sizeof(TExtent)));
+    (PAnsiChar(FCurrBlock) < PAnsiChar(FCurrExtent) + sizeof(TExtent)));
   Assert(AElemCount > 0);
 
   GetMem(ext, sizeof(TExtent) + AElemCount * FElementSize);