--- a/EditTextView.st	Mon May 02 14:08:38 2011 +0200
+++ b/EditTextView.st	Wed May 04 18:46: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: / 30-04-2011 / 04:06:54 / cg"
+    "Modified: / 04-05-2011 / 18:28:18 / cg"
 !
 
 startPositionForSearchBackward
@@ -7800,9 +7800,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.505 2011-04-30 16:56:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.506 2011-05-04 16:46:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.505 2011-04-30 16:56:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.506 2011-05-04 16:46:14 cg Exp $'
 ! !