--- a/ChangeSet.st	Wed Feb 19 20:11:43 2020 +0100
+++ b/ChangeSet.st	Wed Feb 19 20:54:37 2020 +0100
@@ -2330,14 +2330,15 @@
 "/                        with:(indexFromChangedMethodsToB at:idx)
 "/                 )
 "/    ].
-    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)
-    ].
+    changedMethods := (1 to:changedMethods size) 
+                        collect:[:idx |
+                            |cA cB|
+
+
+                            cA := self at:(indexFromChangedMethodsToA at:idx).
+                            cB := anotherChangeSet at:(indexFromChangedMethodsToB at:idx).
+                            Array with:cA with:cB
+                          ] as:OrderedCollection .
 
     same := self reject:[:chg|(changedMethods contains:[:pair|pair first == chg]) or:[onlyInReceiver includes: chg]].