* Fixed CDATA section splitting which got broken due to excessive optimization in r14194.

git-svn-id: trunk@14648 -

packages/fcl-xml/src/xmlwrite.pp

@@ -319,7 +319,7 @@ begin
   EndPos := 1;
   while EndPos <= Length(s) do
   begin
-    if (s[EndPos] < 'A') and (Char(ord(s[EndPos])) in SpecialChars) then
+    if (s[EndPos] < #128) and (Char(ord(s[EndPos])) in SpecialChars) then
     begin
       wrtChars(@s[StartPos], EndPos - StartPos);
       SpecialCharCallback(Self, s, EndPos);