--- a/ChangeSet.st	Tue Feb 04 11:33:35 2020 +0100
+++ b/ChangeSet.st	Wed Feb 19 20:07:29 2020 +0100
@@ -1805,6 +1805,10 @@
     "Created: / 25-10-2006 / 18:06:55 / cg"
 !
 
+includesChangeForSelector:selector
+    ^ (self changeSelectors includes:selector)
+!
+
 methodDefinitionChangesForClassNamed:aClassName
     ^ self 
         select:[:chg | chg isMethodDefinitionChange and:[chg fullClassName = aClassName]] 
@@ -2326,13 +2330,14 @@
 "/                        with:(indexFromChangedMethodsToB at:idx)
 "/                 )
 "/    ].
-    changedMethods := (1 to:changedMethods size) asOrderedCollection collect:[:idx |
-                        |cA cB|
-
-                        cA := self at:(indexFromChangedMethodsToA at:idx).
-                        cB := anotherChangeSet at:(indexFromChangedMethodsToB at:idx).
-                        Array with:cA with:cB
-                      ].
+    changedMethods := ChangeSet new.
+    1 to:changedMethods size do:[:idx |
+        |cA cB|
+
+        cA := self at:(indexFromChangedMethodsToA at:idx).
+        cB := anotherChangeSet at:(indexFromChangedMethodsToB at:idx).
+        changedMethods add:(Array with:cA with:cB)
+    ].
 
     same := self reject:[:chg|(changedMethods contains:[:pair|pair first == chg]) or:[onlyInReceiver includes: chg]].
 
@@ -4911,7 +4916,7 @@
     "set instance variables (automatically generated)"
 
     changed := changedArg.
-    changed isNil ifTrue:[changed := OrderedCollection new].
+    changed isNil ifTrue:[changed := ChangeSet new].
 
     onlyInReceiver := onlyInReceiverArg.
     onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].