diff --git a/packages/fcl-xml/src/xmlcfg.pp b/packages/fcl-xml/src/xmlcfg.pp
index c359be5017..01a860ef2f 100644
--- a/packages/fcl-xml/src/xmlcfg.pp
+++ b/packages/fcl-xml/src/xmlcfg.pp
@@ -354,7 +354,7 @@ begin
       if not (s[i] in AllowedChars) then
       begin
         EscapingNecessary := True;
-	exit;
+        break;
       end;
   end;