--- a/Tools__LintRuleList.st	Thu Aug 04 20:42:16 2011 +0200
+++ b/Tools__LintRuleList.st	Thu Aug 04 21:20:10 2011 +0200
@@ -480,25 +480,29 @@
 
     generator := self inGeneratorHolder value.
     filterS := self filterHolder value.
-    filterS isNilOrEmptyCollection ifFalse:
-        [(filterS startsWith: $*) ifFalse:[filterS := '*' , filterS].
-         (filterS endsWith:   $*) ifFalse:[filterS := filterS , '*']].        
-    (generator isNil and: [self mode == #display])
-        ifTrue:[generator := RBCompositeLintRule allRules flattened ].
+    filterS notEmptyOrNil ifTrue:[
+        (filterS startsWith: $*) ifFalse:[filterS := '*' , filterS].
+        (filterS endsWith:   $*) ifFalse:[filterS := filterS , '*']
+    ].        
+    (generator isNil and:[self mode == #display]) ifTrue:[
+        generator := RBCompositeLintRule allRules flattened 
+    ].
     newList := OrderedCollection new.
     generator do:[:rule |
-        rule flattened do:
-            [:rule|
-            (filterS isNilOrEmptyCollection 
-                or:[rule name matches: filterS])
-                ifTrue:
-                    [newList add: (self listEntryFor:rule)]]].
+        rule flattened do: [:rule|
+            (filterS isEmptyOrNil or:[rule name matches: filterS])
+            ifTrue:[
+                newList add: (self listEntryFor:rule)
+            ]
+        ]
+    ].
     self listHolder value:newList.
     listValid := true.
 
     "Modified: / 22-07-2009 / 15:58:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 16-04-2010 / 11:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 25-08-2010 / 13:35:58 / Jan Vrany <enter your email here>"
+    "Modified: / 04-08-2011 / 20:50:20 / cg"
 ! !
 
 !LintRuleList methodsFor:'selection'!
@@ -704,7 +708,7 @@
 !LintRuleList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.2 2011-07-03 18:10:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.3 2011-08-04 19:20:10 cg Exp $'
 !
 
 version_SVN