--- a/ChangeSet.st	Wed Sep 26 18:33:42 2012 +0200
+++ b/ChangeSet.st	Wed Sep 26 18:34:02 2012 +0200
@@ -705,12 +705,6 @@
     "Modified: / 31-07-2012 / 15:37:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!ChangeSet class methodsFor:'others'!
-
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.199 2012-09-26 13:40:01 cg Exp $'
-! !
-
 !ChangeSet class methodsFor:'queries'!
 
 current
@@ -3823,10 +3817,14 @@
 changedClasses
     |allChangedClasses|
 
-    allChangedClasses := OrderedCollection new.
+    allChangedClasses := Set new.
     allChangedClasses addAll:(onlyInArg changedClasses).
     allChangedClasses addAll:(onlyInReceiver changedClasses).
-    allChangedClasses addAll:(changed changedClasses).
+    changed do:[:eachChangePair | 
+        allChangedClasses add:(eachChangePair first changeClass).
+        allChangedClasses add:(eachChangePair second changeClass).
+    ].
+    allChangedClasses remove:nil ifAbsent:[].
     ^ allChangedClasses
 
     "Created: / 26-09-2012 / 15:39:18 / cg"
@@ -4100,7 +4098,11 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.199 2012-09-26 13:40:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.200 2012-09-26 16:34:02 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.200 2012-09-26 16:34:02 cg Exp $'
 !
 
 version_SVN