diff --git a/packages/fcl-xml/src/xmlwrite.pp b/packages/fcl-xml/src/xmlwrite.pp
index 468aa89359..b7c2024dbe 100644
--- a/packages/fcl-xml/src/xmlwrite.pp
+++ b/packages/fcl-xml/src/xmlwrite.pp
@@ -288,7 +288,7 @@ begin
   Inc(FNesting);
   if FNesting >= Length(FNodes) then
     SetLength(FNodes, FNesting+8);
-  if Length(FIndent) < 2 * FNesting then
+  if (Length(FIndent)-Length(FLineBreak)) < 2 * FNesting then
   begin
     OldLen := Length(FIndent);
     NewLen := 4 * FNesting;