* Patch from Vincent Snijders to fix EscapeText

git-svn-id: trunk@11610 -

packages/fcl-base/src/whtml.pp

@@ -136,9 +136,9 @@ end;
 function THTMLWriter.EscapeText(AText: String): String;
 begin
   // replace by a more sensitive method.
-  Result:=StringReplace(AText,'&','&amp',[rfReplaceAll]);
-  Result:=StringReplace(Result,'<','&lt',[rfReplaceAll]);
-  Result:=StringReplace(Result,'>','&gt',[rfReplaceAll]);
+  Result:=StringReplace(AText,'&','&amp;',[rfReplaceAll]);
+  Result:=StringReplace(Result,'<','&lt;',[rfReplaceAll]);
+  Result:=StringReplace(Result,'>','&gt;',[rfReplaceAll]);
   Result:=StringReplace(Result,#10,'<BR>',[rfreplaceAll]);
 end;