--- a/ChangeSet.st	Mon Jul 08 03:25:19 2013 +0000
+++ b/ChangeSet.st	Mon Jul 08 10:40:55 2013 +0200
@@ -3811,7 +3811,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'!
@@ -4096,16 +4096,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
@@ -4484,11 +4475,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
@@ -4497,6 +4488,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 $'
 ! !