--- a/TextView.st	Sat Mar 06 04:04:04 1999 +0100
+++ b/TextView.st	Sat Mar 06 04:27:24 1999 +0100
@@ -1414,9 +1414,9 @@
     searchBox addAbortButtonLabelled:(resources at:'cancel').
 
     bPrev := searchBox addOkButton:(Button label:(resources at:'prev')).
-    bPrev action:[fwd := false. searchBox okPressed].
+    bPrev action:[self halt. fwd := false. searchBox okPressed].
     bNext := searchBox addOkButtonLabelled:(resources at:'next').
-    bNext action:[fwd := true. "searchBox okPressed"].
+    bNext action:[self halt. fwd := true. "searchBox okPressed"].
     bPrev cursor:(bNext cursor).
 
 "/    searchBox addButton:(Button label:(resources at:'all'));
@@ -1431,6 +1431,7 @@
     ].
     patternField selectAll.
 
+    fwd := true.
     searchBox open.
 
     searchBox accepted ifTrue:[
@@ -2911,5 +2912,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.128 1999-03-06 02:04:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.129 1999-03-06 03:27:24 cg Exp $'
 ! !