From cb834b582fa00d13badaed552ab04c3f09d50655 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 7 Jul 2019 18:35:08 +0000
Subject: [PATCH] * Escape < >

---
 packages/rtl/browserconsole.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/rtl/browserconsole.pas b/packages/rtl/browserconsole.pas
index 6f857b0..14480ae 100644
--- a/packages/rtl/browserconsole.pas
+++ b/packages/rtl/browserconsole.pas
@@ -86,10 +86,12 @@ Var
 begin
   CL:=LastLine.InnerHtml;
   CL:=CL+String(S);
+  cl:=StringReplace(cl,'<','&lt;',[rfReplaceAll]);
+  cl:=StringReplace(cl,'>','&gt;',[rfReplaceAll]);
   cl:=StringReplace(cl,' ','&nbsp;',[rfReplaceAll]);
   cl:=StringReplace(cl,#13#10,'<br>',[rfReplaceAll]);
   cl:=StringReplace(cl,#10,'<br>',[rfReplaceAll]);
-  cl:=StringReplace(cl,#10,'<br>',[rfReplaceAll]);
+  cl:=StringReplace(cl,#13,'<br>',[rfReplaceAll]);
   LastLine.InnerHtml:=CL;
   if NewLine then
     begin