--- a/ProjectDefinition.st	Sat Feb 01 12:46:16 2020 +0100
+++ b/ProjectDefinition.st	Sat Feb 01 16:00:43 2020 +0100
@@ -2965,6 +2965,25 @@
     "Modified: / 17-08-2006 / 20:49:51 / cg"
 !
 
+extensionMethodNamesPairWiseDo:aBlock
+    "enumerates the extension methods into aBlock, passing class name and selector
+     for each.
+     New feature: second element of each pair can now be either a selector symbol
+     (as it used to be) or an array of selectors."
+
+    self extensionMethodNames pairWiseDo:[:className :selOrArrayOfSels |
+        selOrArrayOfSels isSymbol ifTrue:[
+            aBlock value:className value:selOrArrayOfSels
+        ] ifFalse:[
+            selOrArrayOfSels do:[:eachSelector |
+                aBlock value:className value:eachSelector
+            ]
+        ]
+    ].
+
+    "Modified: / 17-08-2006 / 20:49:51 / cg"
+!
+
 ignoredClassNames
     "can be redefined to suppress some classes from being included in a
      generated classNamesAndAttributes spec"