--- a/Tools__HierarchicalLintRuleList.st	Thu Aug 04 21:20:24 2011 +0200
+++ b/Tools__HierarchicalLintRuleList.st	Thu Aug 04 21:21:13 2011 +0200
@@ -167,13 +167,14 @@
 
     inGenerator := self inGeneratorHolder value.
     filterS := self filterHolder value.
-    filterS isNilOrEmptyCollection ifFalse:
-        [(filterS startsWith: $*) ifFalse:[filterS := '*' , filterS].
-         (filterS endsWith:   $*) ifFalse:[filterS := filterS , '*']].
+    filterS notEmptyOrNil ifTrue:[
+         (filterS startsWith: $*) ifFalse:[filterS := '*' , filterS].
+         (filterS endsWith:   $*) ifFalse:[filterS := filterS , '*']
+    ].
     (inGenerator isNil and: [self mode == #display])
         ifTrue:[inGenerator := RBCompositeLintRule allRules rules ].
     inRules := OrderedCollection new.
-    filterS isNilOrEmptyCollection 
+    filterS isEmptyOrNil 
         ifTrue:
             [inGenerator do:[:rule | inRules add:rule ]]
         ifFalse:
@@ -181,7 +182,7 @@
                 [:rule|
                 rule flattened do:
                     [:each|
-                    (filterS isNilOrEmptyCollection 
+                    (filterS isEmptyOrNil 
                         or:[each name matches: filterS])
                         ifTrue:
                             [inRules add: each]]]].
@@ -199,12 +200,13 @@
     "Created: / 15-04-2010 / 20:39:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 16-04-2010 / 09:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-08-2010 / 11:56:39 / Jan Vrany <enter your email here>"
+    "Modified: / 04-08-2011 / 21:21:05 / cg"
 ! !
 
 !HierarchicalLintRuleList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.2 2011-07-03 18:10:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.3 2011-08-04 19:21:13 cg Exp $'
 !
 
 version_SVN