From b5ce52f87d2b71264dec8970c84900f0883e048d Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 2 Sep 2002 10:33:37 +0000
Subject: [PATCH]  * fix web bug report 2099

---
 ide/weditor.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ide/weditor.pas b/ide/weditor.pas
index 90af6833c6..968e411907 100644
--- a/ide/weditor.pas
+++ b/ide/weditor.pas
@@ -5523,7 +5523,7 @@ begin
       DelChar;
     for Y:=0 to CodeLines^.Count-1 do
     begin
-      Line:=CodeLines^.At(Y)^;
+      Line:=GetStr(CodeLines^.At(Y));
       CanJump:=false;
       if (Y>0) then
         begin
@@ -7104,7 +7104,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.24  2002-08-26 14:00:48  pierre
+  Revision 1.25  2002-09-02 10:33:37  pierre
+   * fix web bug report 2099
+
+  Revision 1.24  2002/08/26 14:00:48  pierre
    * fix for bug report 2025
 
   Revision 1.23  2002/08/26 13:01:38  pierre