--- a/EditTextView.st	Mon Dec 14 12:22:36 2009 +0100
+++ b/EditTextView.st	Mon Dec 14 12:40:42 2009 +0100
@@ -4691,8 +4691,10 @@
     (key == #Delete
      or:[key == #BasicDelete]) ifTrue:[
         selectionStartLine notNil ifTrue:[  
-            self setLastStringToReplace: self selection asStringWithoutFinalCR.
-            lastReplacementInfo lastReplacement: nil.
+"/          Again function is not supporting Delete action (on purpose, to avoid replacing the next search string)
+"/          To remove text repetetively, use Cut instead.
+"/            self setLastStringToReplace: self selection asStringWithoutFinalCR.
+"/            lastReplacementInfo lastReplacement: nil.
             ((key == #BasicDelete)
             or:[UserPreferences current deleteSetsClipboardText not]) ifTrue:[
                 self deleteSelection.
@@ -7703,9 +7705,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.486 2009-12-14 11:22:36 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.487 2009-12-14 11:40:42 fm Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.486 2009-12-14 11:22:36 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.487 2009-12-14 11:40:42 fm Exp $'
 ! !