--- a/Tools_MethodCategoryList.st	Fri Sep 16 18:48:11 2011 +0200
+++ b/Tools_MethodCategoryList.st	Sun Sep 18 12:53:08 2011 +0200
@@ -593,6 +593,7 @@
     changedObject == selectedProtocolsHolder ifTrue:[
         rawProtocolList := rawProtocolListHolder value.
         rawProtocolList size == 0 ifTrue:[
+            lastGeneratedProtocols := nil.
             self updateList.
             rawProtocolList := rawProtocolListHolder value.
         ].
@@ -607,14 +608,16 @@
                     setValue:nil;                    "/ to force update
                     value:newIndices.
             ].
-            (lastGeneratedProtocols notNil
-            and:[(lastGeneratedProtocols includes:self class nameListEntryForALL)
-            and:[(selectedCategories ? #()) includes:self class nameListEntryForALL]])
-            ifTrue:[
-                "/ no need to update generator
-            ] ifFalse:[
+            "/ cg: does not work (selecting all with testcase classes)
+            "/ don't see why, at the moment, but....
+"/            (lastGeneratedProtocols notNil
+"/            and:[(lastGeneratedProtocols includes:self class nameListEntryForALL)
+"/            and:[(selectedCategories ? #()) includes:self class nameListEntryForALL]])
+"/            ifTrue:[
+"/                "/ no need to update generator
+"/            ] ifFalse:[
                 self updateOutputGenerator.
-            ]
+"/            ]
         ].
         ^ self
     ].
@@ -653,7 +656,7 @@
     super delayedUpdate:something with:aParameter from:changedObject
 
     "Created: / 05-02-2000 / 13:42:10 / cg"
-    "Modified: / 20-07-2011 / 18:05:53 / cg"
+    "Modified: / 18-09-2011 / 12:50:39 / cg"
 !
 
 getSelectedProtocolsFromIndices
@@ -1023,7 +1026,7 @@
       ]
 
     "Created: / 05-02-2000 / 13:42:10 / cg"
-    "Modified: / 07-09-2011 / 10:11:46 / cg"
+    "Modified: / 18-09-2011 / 12:51:45 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'private'!
@@ -1976,11 +1979,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.75 2011-09-08 03:27:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.76 2011-09-18 10:53:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.75 2011-09-08 03:27:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.76 2011-09-18 10:53:08 cg Exp $'
 ! !
 
 MethodCategoryList initialize!