--- a/ChangeSet.st	Fri Jan 27 15:59:11 2006 +0100
+++ b/ChangeSet.st	Tue Jan 31 23:53:02 2006 +0100
@@ -1180,7 +1180,7 @@
 "/                        with:(indexFromChangedMethodsToB at:idx)
 "/                 )
 "/    ].
-    changedMethods := (1 to:changedMethods size) collect:[:idx |
+    changedMethods := (1 to:changedMethods size) asOrderedCollection collect:[:idx |
                         |cA cB|
 
                         cA := self at:(indexFromChangedMethodsToA at:idx).
@@ -1189,7 +1189,7 @@
                       ].
 
     ret := DiffSet new
-                changed:changedMethods 
+                changed:changedMethods
                 onlyInReceiver:onlyInReceiver
                 onlyInArg:onlyInArg.
 "/    ret info:info.
@@ -1689,8 +1689,10 @@
 
     changed := changedArg.
     changed isNil ifTrue:[changed := OrderedCollection new].
+
     onlyInReceiver := onlyInReceiverArg.
     onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].
+
     onlyInArg := onlyInArgArg.
     onlyInArg isNil ifTrue:[onlyInArg := ChangeSet new].
 !
@@ -1966,5 +1968,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.122 2006-01-17 12:17:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.123 2006-01-31 22:53:02 cg Exp $'
 ! !