--- a/Tools__MethodCategoryList.st	Fri Jan 22 20:45:28 2016 +0100
+++ b/Tools__MethodCategoryList.st	Fri Jan 22 20:50:28 2016 +0100
@@ -646,8 +646,8 @@
             selectedCategories := selectedProtocolsHolder value ? #().
             selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
             newIndices := selectedCategories 
-                            collect:[:each | rawProtocolList findFirst:[:p | p string = each string]].
-            newIndices := newIndices select:[:each | each ~~ 0].
+                            collect:[:each | rawProtocolList findFirst:[:p | p string = each string]]
+                            thenSelect:[:each | each ~~ 0].
             newIndices ~= self selectedProtocolIndices value ifTrue:[
                 self selectedProtocolIndices 
                     setValue:nil;                    "/ to force update
@@ -2201,11 +2201,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.112 2015-05-19 16:38:42 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.112 2015-05-19 16:38:42 cg Exp $'
+    ^ '$Header$'
 ! !