--- a/SystemBrowser.st	Wed Jul 27 23:40:41 2011 +0200
+++ b/SystemBrowser.st	Thu Jul 28 10:53:59 2011 +0200
@@ -4365,9 +4365,10 @@
 searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch
     |sel searchBlock lcString quickMatch|
 
-    (doMatch
+    ((doMatch
      and:[(aSelectorString ~= '*') 
-     and:[(aSelectorString includesMatchCharacters or:[ignoreCase])]]) ifTrue:[
+     and:[aSelectorString includesMatchCharacters]])
+    or:[ignoreCase]) ifTrue:[
         "/ a matchString or ignoreCase - need string matching procedure
 
         ignoreCase ifTrue:[
@@ -4475,6 +4476,8 @@
         ]
     ].
     ^ searchBlock
+
+    "Modified: / 28-07-2011 / 10:52:51 / cg"
 !
 
 searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
@@ -5761,7 +5764,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.294 2011-07-24 07:51:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.295 2011-07-28 08:53:59 cg Exp $'
 !
 
 version_SVN