--- a/ChangesBrowser.st	Fri Nov 28 13:02:10 2014 +0100
+++ b/ChangesBrowser.st	Fri Nov 28 13:07:11 2014 +0100
@@ -2692,35 +2692,36 @@
 !
 
 findNextWithString:searchString
+    |includesMatchCharacters|
+
     lastSearchType := #string.
 
     lastSearchString := searchString.
 
     changeNrShown isNil ifTrue:[
-	changeNrShown := 0.
-    ].
+        changeNrShown := 0.
+    ].
+
+    includesMatchCharacters := searchString includesMatchCharacters.
 
     self findNextForWhich:
-	[:changeNr |
-	    |s|
-
-	    s := self sourceOfMethodChange:changeNr.
-	    s notNil and:[
-		(searchString includesMatchCharacters not
-			    and:[(s findString:searchString) ~~ 0])
-		or:[ searchString includesMatchCharacters
-			    and:[('*' , searchString , '*') match:s ]]]
-	].
+        [:changeNr |
+            |s|
+
+            s := self sourceOfMethodChange:changeNr.
+            s notNil and:[
+                (includesMatchCharacters not and:[(s findString:searchString) ~~ 0])
+                or:[ includesMatchCharacters and:[('*' , searchString , '*') match:s ]]]
+        ].
 
     changeNrShown == 0 ifTrue:[changeNrShown := nil].
 
     codeView setSearchPattern:searchString.
     codeView
-	searchFwd:searchString
-	ignoreCase:false
-	startingAtLine:1 col:0
-	ifAbsent:nil.
-
+        searchFwd:searchString
+        ignoreCase:false
+        startingAtLine:1 col:0
+        ifAbsent:nil.
 !
 
 findPrevious
@@ -2849,34 +2850,36 @@
 !
 
 findPreviousWithString:searchString
+    |includesMatchCharacters|
+
     lastSearchType := #string.
 
     lastSearchString := searchString.
 
     changeNrShown isNil ifTrue:[
-	changeNrShown := 0.
-    ].
+        changeNrShown := 0.
+    ].
+
+    includesMatchCharacters := searchString includesMatchCharacters.
 
     self findPreviousForWhich:
-	[:changeNr |
-	    |s includesMatchCharacters|
-
-	    includesMatchCharacters := searchString includesMatchCharacters.
-	    s := self sourceOfMethodChange:changeNr.
-	    s notNil and:[
-		(includesMatchCharacters not and:[(s findString:searchString) ~~ 0])
-		or:[includesMatchCharacters and:[('*' , searchString , '*') match:s ]]]
-	].
+        [:changeNr |
+            |s |
+
+            s := self sourceOfMethodChange:changeNr.
+            s notNil and:[
+                (includesMatchCharacters not and:[(s findString:searchString) ~~ 0])
+                or:[includesMatchCharacters and:[('*' , searchString , '*') match:s ]]]
+        ].
 
     changeNrShown == 0 ifTrue:[changeNrShown := nil].
 
     codeView setSearchPattern:searchString.
     codeView
-	searchFwd:searchString
-	ignoreCase:false
-	startingAtLine:1 col:0
-	ifAbsent:nil.
-
+        searchFwd:searchString
+        ignoreCase:false
+        startingAtLine:1 col:0
+        ifAbsent:nil.
 !
 
 findSelector
@@ -6527,10 +6530,10 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.460 2014-11-19 23:23:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.461 2014-11-28 12:07:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.460 2014-11-19 23:23:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.461 2014-11-28 12:07:11 cg Exp $'
 ! !