--- a/ChangeSet.st	Thu Dec 01 11:52:43 2011 +0100
+++ b/ChangeSet.st	Thu Dec 01 19:18:23 2011 +0100
@@ -100,6 +100,7 @@
 
     |changeSet s changeObject|
 
+    "/ kludge: could do this much faster...
     s := ReadWriteStream on:''.
     aClass fileOutOn:s.
     s reset.
@@ -162,6 +163,7 @@
 
     "Created: / 16-02-1998 / 12:19:34 / cg"
     "Modified: / 12-10-2006 / 23:45:14 / cg"
+    "Modified (format): / 01-12-2011 / 19:10:22 / cg"
 !
 
 forExistingClass:aClass withExtensions:withExtensions extensionsOnly:extensionsOnly
@@ -1621,7 +1623,7 @@
      each being a changeSet containing corresponding changes.
      WARNING: 
         destructive; could modify both the receiver and the argument by possibly
-        changing methodChanges into categorychanges"
+        changing methodChanges into categoryChanges"
 
     |otherChangeIndicesBySelector otherNonMethodChangeIndices changeIndicesBySelector nonMethodChangeIndices
      onlyInReceiver onlyInArg changedMethods
@@ -1791,6 +1793,7 @@
     ^ret
 
     "Modified: / 12-10-2006 / 22:22:39 / cg"
+    "Modified (comment): / 01-12-2011 / 19:12:55 / cg"
 !
 
 diffSetsAgainstImage
@@ -2995,6 +2998,6 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.185 2011-11-29 10:23:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.186 2011-12-01 18:18:23 cg Exp $'
 
 ! !