--- a/Tools_MethodCategoryList.st	Fri Mar 15 21:28:09 2013 +0100
+++ b/Tools_MethodCategoryList.st	Sat Mar 16 10:49:32 2013 +0100
@@ -850,29 +850,31 @@
      (i.e. to pass multiple-class and multiple-protocol info
       without a need for another classHolder/protocolHolder in the methodList)."
 
+    |protocols noPackage noCat static notStatic|
+
+    noPackage := PackageId noProjectID.
+    noCat := (self class nameListEntryForNILCategory).
+    static := (self class nameListEntryForStatic).
+    notStatic := (self class nameListEntryForNonStatic).
+
+    protocols := self selectedProtocols value ? #().
+    protocols := protocols collect:[:each | (each ifNil:[noCat]) string].
+    lastGeneratedProtocols := protocols.
+    protocols := protocols asSet.
+
     ^ Iterator 
         on:[:whatToDo |
-            |protocols 
+            | 
              allProtocols superSendProtocols uncommentedProtocols obsoleteProtocols 
              documentationProtocols longProtocols extensionProtocols redefinedProtocols
              redefineProtocols  overrideProtocols
              missingRequiredProtocols subclassResponsibilities
              notInstrumentedProtocols annotatedProtocols fullyCoveredProtocols 
              partiallyCoveredProtocols uncoveredProtocols
-             noCat static notStatic classSelectorPairsAlreadyDone
-             packages remainingClasses remainingCategories classesAlreadyDone noPackage
+             classSelectorPairsAlreadyDone
+             packages remainingClasses remainingCategories classesAlreadyDone 
              catListed showChanged|
 
-            noPackage := PackageId noProjectID.
-            noCat := (self class nameListEntryForNILCategory).
-            static := (self class nameListEntryForStatic).
-            notStatic := (self class nameListEntryForNonStatic).
-
-            protocols := self selectedProtocols value ? #().
-            protocols := protocols collect:[:each | (each ifNil:[noCat]) string].
-            lastGeneratedProtocols := protocols.
-            protocols := protocols asSet.
-
             (leafClasses size > 0 and:[protocols size > 0]) ifTrue:[
                 allProtocols := protocols includes:(self class nameListEntryForALL).
                 superSendProtocols := protocols includes:(self class nameListEntryForSuperSend).
@@ -2078,11 +2080,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.91 2013-03-15 20:28:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.92 2013-03-16 09:49:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.91 2013-03-15 20:28:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.92 2013-03-16 09:49:32 cg Exp $'
 ! !