--- a/ChangeSetDiffComponent.st	Mon Dec 05 21:30:14 2011 +0100
+++ b/ChangeSetDiffComponent.st	Mon Dec 19 09:37:48 2011 +0100
@@ -68,13 +68,29 @@
 !ChangeSetDiffComponent methodsFor:'accessing'!
 
 changesetA
+    "Answers a changeset with containing all versionA changes"
+    | cs |
 
-    ^ChangeSet withAll: (self flattened collect:[:each|each versionA])
+    cs := ChangeSet new name: self versionALabel.
+    self do:[:item|
+        cs add: item versionA
+    ].
+    ^cs
+
+    "Modified: / 16-12-2011 / 14:35:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 changesetB
+    "Answers a changeset with containing all versionB changes"
+    | cs |
 
-    ^ChangeSet withAll: (self flattened collect:[:each|each versionB])
+    cs := ChangeSet new name: self versionBLabel.
+    self do:[:item|
+        cs add: item versionB
+    ].
+    ^cs
+
+    "Modified: / 16-12-2011 / 14:35:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 diffs
@@ -109,6 +125,18 @@
 
 parent:aDiffSet
     parent := aDiffSet.
+!
+
+versionALabel
+    ^ parent versionALabel
+
+    "Created: / 09-11-2009 / 12:38:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+versionBLabel
+    ^ parent versionBLabel
+
+    "Created: / 09-11-2009 / 12:38:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffComponent methodsFor:'change & update'!
@@ -171,5 +199,5 @@
 !ChangeSetDiffComponent class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffComponent.st,v 1.2 2011-07-07 12:22:57 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSetDiffComponent.st,v 1.3 2011-12-19 08:37:48 vrany Exp $'
 ! !