--- a/ChangeSet.st	Tue Oct 30 02:10:43 2012 +0100
+++ b/ChangeSet.st	Tue Oct 30 10:34:19 2012 +0100
@@ -182,6 +182,31 @@
     "Modified (format): / 01-12-2011 / 19:10:22 / cg"
 !
 
+forExistingClass:aClass withExtensions:withExtensions
+    "build a changeSet for some given full class with or without extensions.
+     That does of course not give deltas, but instead reflects the current
+     state of the given class.
+     It is useful in conjunction with the other utility methods,
+     for example, when building patchLists, diffSets etc."
+
+    ^ self
+        forExistingClass:aClass 
+        withExtensions:withExtensions 
+        extensionsOnly:false
+
+    "
+     (ChangeSet forExistingClass:Object) size
+
+     Object hasExtensions   
+     Object extensions size           
+
+     (ChangeSet forExistingClass:Object withExtensions:false) size   
+    "
+
+    "Created: / 12-10-2006 / 18:13:02 / cg"
+    "Modified: / 12-10-2006 / 23:46:05 / cg"
+!
+
 forExistingClass:aClass withExtensions:withExtensions extensionsOnly:extensionsOnly
     "build a changeSet for some given full class, the base-class or the extensions only,
      as specified by the with-arguments.
@@ -4103,11 +4128,11 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.202 2012-10-26 11:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.203 2012-10-30 09:34:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.202 2012-10-26 11:24:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.203 2012-10-30 09:34:19 cg Exp $'
 !
 
 version_SVN