diff --git a/ide/text/wcedit.pas b/ide/text/wcedit.pas
index bfe41f59c0..10181cad9a 100644
--- a/ide/text/wcedit.pas
+++ b/ide/text/wcedit.pas
@@ -156,7 +156,7 @@ type
       function    IsClipboard: Boolean; virtual;
       function    LoadFromStream(Stream: PStream): boolean; virtual;
       function    SaveToStream(Stream: PStream): boolean; virtual;
-      function    SaveAreaToStream(Stream: PStream; StartP,EndP: TPoint): boolean;
+      function    SaveAreaToStream(Stream: PStream; StartP,EndP: TPoint): boolean;virtual;
       destructor  Done; virtual;
     public
 {      ChangedLine : sw_integer;}
@@ -1756,7 +1756,7 @@ end;
 
 
 END.
-{ 
- $Log $ 
- 
+{
+ $Log $
+
 }
\ No newline at end of file
diff --git a/ide/text/weditor.pas b/ide/text/weditor.pas
index 4167d47c6d..38d96734f8 100644
--- a/ide/text/weditor.pas
+++ b/ide/text/weditor.pas
@@ -469,7 +469,7 @@ type
    {a}procedure   SetContent(ALines: PUnsortedStringCollection); virtual;
    {a}function    LoadFromStream(Stream: PStream): boolean; virtual;
    {a}function    SaveToStream(Stream: PStream): boolean; virtual;
-   {a}function    SaveAreaToStream(Stream: PStream; StartP,EndP: TPoint): boolean;
+   {a}function    SaveAreaToStream(Stream: PStream; StartP,EndP: TPoint): boolean;virtual;
     public
    {a}function    InsertFrom(Editor: PCustomCodeEditor): Boolean; virtual;
    {a}function    InsertText(const S: string): Boolean; virtual;
@@ -5842,7 +5842,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.91  2000-05-29 10:44:58  pierre
+  Revision 1.92  2000-06-15 20:29:45  pierre
+   * avoid RTE 211 on Ctrl K W
+
+  Revision 1.91  2000/05/29 10:44:58  pierre
    + New bunch of Gabor's changes: see fixes.txt
 
   Revision 1.90  2000/05/17 11:58:26  pierre