--- a/ChangeSet.st	Sun Jul 07 18:18:04 2013 +0100
+++ b/ChangeSet.st	Tue Jul 09 22:51:51 2013 +0100
@@ -3838,7 +3838,7 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+    ^ '$Id: ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
 ! !
 
 !ChangeSet::ClassSourceWriter::ClassInfo class methodsFor:'instance creation'!
@@ -4124,16 +4124,7 @@
 !
 
 changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg 
-    "set instance variables (automatically generated)"
-
-    changed := changedArg.
-    changed isNil ifTrue:[changed := OrderedCollection new].
-
-    onlyInReceiver := onlyInReceiverArg.
-    onlyInReceiver isNil ifTrue:[onlyInReceiver := ChangeSet new].
-
-    onlyInArg := onlyInArgArg.
-    onlyInArg isNil ifTrue:[onlyInArg := ChangeSet new].
+    self changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg same:nil
 !
 
 changed:changedArg onlyInReceiver:onlyInReceiverArg onlyInArg:onlyInArgArg same: sameArg
@@ -4512,11 +4503,11 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
 !
 
 version_HG
@@ -4525,6 +4516,6 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSet.st,v 1.229 2013-06-20 16:07:55 cg Exp $'
+    ^ '$Id: ChangeSet.st,v 1.230 2013-07-08 08:40:55 stefan Exp $'
 ! !