--- a/Tools__HierarchicalLintRuleList.st	Thu Mar 08 01:36:29 2012 +0100
+++ b/Tools__HierarchicalLintRuleList.st	Thu Mar 08 03:44:52 2012 +0100
@@ -175,17 +175,13 @@
         ifTrue:[inGenerator := RBCompositeLintRule allRules rules ].
     inRules := OrderedCollection new.
     filterS isEmptyOrNil 
-        ifTrue:
-            [inGenerator do:[:rule | inRules add:rule ]]
-        ifFalse:
-            [inGenerator do:
-                [:rule|
-                rule flattened do:
-                    [:each|
-                    (filterS isEmptyOrNil 
-                        or:[each name matches: filterS])
-                        ifTrue:
-                            [inRules add: each]]]].
+        ifTrue:[
+            inGenerator do:[:rule | inRules add:rule ]]
+        ifFalse:[
+            inGenerator do:[:rule|
+                rule flattened do:[:each|
+                    (each name matches: filterS ignoreCase: true)
+                        ifTrue: [inRules add: each]]]].
     root := (self 
                 listEntryFor:(RBCompositeLintRule rules:inRules name:'Rules'))
                 parent:self listHolder;
@@ -200,13 +196,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"
+    "Modified: / 08-03-2012 / 03:11:19 / cg"
 ! !
 
 !HierarchicalLintRuleList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.3 2011-08-04 19:21:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalLintRuleList.st,v 1.4 2012-03-08 02:44:52 cg Exp $'
 !
 
 version_SVN