--- a/EditTextView.st	Mon Apr 25 11:27:11 2011 +0200
+++ b/EditTextView.st	Sat Apr 30 18:56:14 2011 +0200
@@ -6847,15 +6847,15 @@
     "/ original string (for search after again)
     "/ for cut or delete actions allow lastReplacement with nil
     "/
-    (lastStringFromReplaceForNextSearch notNil
-     and:[typeOfSelection ~~ #search]) ifTrue:[
-        lastStringFromReplaceForNextSearch isString ifTrue:[
-            lastSearchPattern := lastStringFromReplaceForNextSearch.
-        ] ifFalse:[
-            lastSearchPattern := lastStringFromReplaceForNextSearch asStringWithoutFinalCR.
-        ].
-        ^ self
-    ].
+"/    (lastStringFromReplaceForNextSearch notNil
+"/     and:[typeOfSelection ~~ #search]) ifTrue:[
+"/        lastStringFromReplaceForNextSearch isString ifTrue:[
+"/            lastSearchPattern := lastStringFromReplaceForNextSearch.
+"/        ] ifFalse:[
+"/            lastSearchPattern := lastStringFromReplaceForNextSearch asStringWithoutFinalCR.
+"/        ].
+"/        ^ self
+"/    ].
 
     "/
     "/ if there is a selection:
@@ -6875,7 +6875,7 @@
         ]
     ]
 
-    "Modified: 20.4.1996 / 12:50:13 / cg"
+    "Modified: / 30-04-2011 / 04:06:54 / cg"
 !
 
 startPositionForSearchBackward
@@ -7800,9 +7800,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.504 2011-04-18 19:35:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.505 2011-04-30 16:56:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.504 2011-04-18 19:35:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.505 2011-04-30 16:56:14 cg Exp $'
 ! !