--- a/TextView.st	Wed Sep 26 17:55:52 2001 +0200
+++ b/TextView.st	Thu Sep 27 19:52:57 2001 +0200
@@ -23,7 +23,7 @@
 	classVariableNames:'DefaultViewBackground DefaultSelectionForegroundColor
 		DefaultSelectionBackgroundColor MatchDelayTime
 		WordSelectCatchesBlanks ST80Selections LastSearchPatterns
-		NumRememberedSearchPatterns'
+		NumRememberedSearchPatterns LastSearchIgnoredCase'
 	poolDictionaries:''
 	category:'Views-Text'
 !
@@ -1585,7 +1585,7 @@
      b bPrev bNext pattern fwd ign initialString
      bindings bldr|
 
-    ign := lastSearchIgnoredCase ? false.
+    ign := lastSearchIgnoredCase ? LastSearchIgnoredCase ? false.
     caseHolder := ign asValue.
 
     patternHolder := '' asValue.
@@ -1672,6 +1672,8 @@
             self rememberSearchPattern:pattern.
 
             ign := caseHolder value.
+            LastSearchIgnoredCase := ign.
+
             fwd ifFalse:[
                 lastSearchDirection := #backward.
                 self searchBwd:pattern ignoreCase:ign.
@@ -3210,5 +3212,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.164 2001-09-12 07:25:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.165 2001-09-27 17:52:57 cg Exp $'
 ! !