--- a/TextView.st	Mon Sep 22 18:18:56 2003 +0200
+++ b/TextView.st	Tue Sep 23 19:49:46 2003 +0200
@@ -2567,9 +2567,11 @@
 
     |ign|
 
-    searchAction notNil ifTrue:[
-        self searchUsingSearchAction:#backward.
-        ^ self.
+    self hasSelection ifFalse:[
+        searchAction notNil ifTrue:[
+            self searchUsingSearchAction:#backward.
+            ^ self.
+        ]
     ].
 
     ign := lastSearchIgnoredCase ? false.
@@ -3034,9 +3036,11 @@
 
     |ign|
 
-    searchAction notNil ifTrue:[
-        self searchUsingSearchAction:#forward.
-        ^ self.
+    self hasSelection ifFalse:[
+        searchAction notNil ifTrue:[
+            self searchUsingSearchAction:#forward.
+            ^ self.
+        ]
     ].
 
     ign := lastSearchIgnoredCase ? false.
@@ -3708,7 +3712,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.211 2003-09-22 16:18:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.212 2003-09-23 17:49:46 cg Exp $'
 ! !
 
 TextView initialize!