--- a/ChangeSet.st	Mon Jul 15 09:23:57 1996 +0200
+++ b/ChangeSet.st	Mon Jul 15 09:30:39 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Changes'
 !
 
-!ChangeSet class methodsFor:'documentation'!
+!ChangeSet  class methodsFor:'documentation'!
 
 copyright
 "
@@ -42,7 +42,7 @@
 "
 ! !
 
-!ChangeSet class methodsFor:'queries'!
+!ChangeSet  class methodsFor:'queries'!
 
 current
     "ST-80 compatibility: return the current changeSet"
@@ -61,73 +61,100 @@
 !ChangeSet methodsFor:'change management'!
 
 addClassCategoryChange:newCategory for:aClass
+    "add a classCategory change to the receiver"
+
     |newChange|
 
     newChange := ClassCategoryChange class:aClass category:newCategory.
     self add:newChange
 
     "Created: 3.12.1995 / 13:45:53 / cg"
+    "Modified: 15.7.1996 / 09:26:52 / cg"
 !
 
 addClassDefinitionChangeFor:aClass
+    "add a classDefinition change to the receiver"
+
     |newChange|
 
     newChange := ClassDefinitionChange class:aClass.
     self add:newChange
 
-    "Modified: 3.12.1995 / 14:05:57 / cg"
+    "Modified: 15.7.1996 / 09:27:05 / cg"
 !
 
 addMethodCategoryChange:aMethod category:newCategory in:aClass
+    "add a methodCategory change to the receiver"
+
     |newChange|
 
     newChange := MethodCategoryChange class:aClass
-				   selector:(aClass selectorAtMethod:aMethod)
-				   category:newCategory.
+                                   selector:(aClass selectorAtMethod:aMethod)
+                                   category:newCategory.
     self add:newChange
 
+    "Modified: 15.7.1996 / 09:27:15 / cg"
 !
 
 addMethodChange:aMethod in:aClass
+    "add a method change to the receiver"
+
     |newChange|
 
     newChange := MethodChange class:aClass
-			   selector:(aClass selectorAtMethod:aMethod)
-			     source:aMethod source
-			   category:aMethod category.
+                           selector:(aClass selectorAtMethod:aMethod)
+                             source:aMethod source
+                           category:aMethod category.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:21 / cg"
 !
 
 addMethodPrivacyChange:aMethod in:aClass
+    "add a methodPrivacy change to the receiver"
+
     |newChange|
 
     newChange := MethodPrivacyChange class:aClass
-				   selector:(aClass selectorAtMethod:aMethod)
-				   privacy:aMethod privacy.
+                                   selector:(aClass selectorAtMethod:aMethod)
+                                   privacy:aMethod privacy.
     self add:newChange
 
     "Modified: 27.8.1995 / 22:55:22 / claus"
+    "Modified: 15.7.1996 / 09:27:28 / cg"
 !
 
 addPrimitiveDefinitionsChangeFor:aClass
+    "add a primitiveDefinitions change to the receiver"
+
     |newChange|
 
     newChange := ClassPrimitiveDefinitionsChange class:aClass.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:40 / cg"
 !
 
 addPrimitiveFunctionsChangeFor:aClass
+    "add a primitiveFunctions change to the receiver"
+
     |newChange|
 
     newChange := ClassPrimitiveFunctionsChange class:aClass.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:47 / cg"
 !
 
 addPrimitiveVariablesChangeFor:aClass
+    "add a primitiveVariables change to the receiver"
+
     |newChange|
 
     newChange := ClassPrimitiveVariablesChange class:aClass.
     self add:newChange
+
+    "Modified: 15.7.1996 / 09:27:55 / cg"
 ! !
 
 !ChangeSet methodsFor:'misc'!
@@ -138,8 +165,8 @@
     ^ self
 ! !
 
-!ChangeSet class methodsFor:'documentation'!
+!ChangeSet  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.17 1996-04-25 17:04:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.18 1996-07-15 07:30:33 cg Exp $'
 ! !