--- a/ClassChange.st	Tue Mar 21 13:43:37 2000 +0100
+++ b/ClassChange.st	Tue Mar 21 13:45:23 2000 +0100
@@ -111,11 +111,15 @@
     "append a user printed representation of the receiver to aStream.
      The format is suitable for a human - not meant to be read back."
 
+    source isNil ifTrue:[
+        aStream nextPutAll:'an empty change'.
+        ^ self
+    ].
     aStream nextPutAll:source asCollectionOfLines first.
 ! !
 
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.19 1999-12-14 14:31:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.20 2000-03-21 12:44:59 cg Exp $'
 ! !

--- a/ClassDefinitionChange.st	Tue Mar 21 13:43:37 2000 +0100
+++ b/ClassDefinitionChange.st	Tue Mar 21 13:45:23 2000 +0100
@@ -11,7 +11,7 @@
 "
 
 ClassChange subclass:#ClassDefinitionChange
-	instanceVariableNames:'definition'
+	instanceVariableNames:'definition objectType nameSpaceName classType otherParameters'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -43,6 +43,25 @@
 "
 ! !
 
+!ClassDefinitionChange methodsFor:'accessing'!
+
+nameSpaceName: aNameSpaceName classType: aClassType otherParameters: someOtherParameters
+    nameSpaceName := nameSpaceName.
+    classType := aClassType.
+    otherParameters := someOtherParameters
+
+!
+
+objectType
+    "return the value of the instance variable 'objectType' (automatically generated)"
+
+    ^ objectType!
+
+objectType:something
+    "set the value of the instance variable 'objectType' (automatically generated)"
+
+    objectType := something.! !
+
 !ClassDefinitionChange methodsFor:'comparing'!
 
 isForSameAs:changeB
@@ -87,5 +106,5 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.19 2000-02-03 18:32:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.20 2000-03-21 12:44:06 cg Exp $'
 ! !

--- a/MethodChange.st	Tue Mar 21 13:43:37 2000 +0100
+++ b/MethodChange.st	Tue Mar 21 13:45:23 2000 +0100
@@ -51,6 +51,12 @@
 
 !MethodChange methodsFor:'accessing'!
 
+category: aCategory
+    methodCategory := aCategory
+
+    "Created: / 7.2.1998 / 19:47:53 / cg"
+!
+
 changeMethod
     |cls|
 
@@ -104,6 +110,12 @@
     ^ selector
 
     "Created: / 6.2.1998 / 13:29:25 / cg"
+!
+
+selector:aSymbol
+    selector := aSymbol
+
+    "Created: / 6.2.1998 / 13:29:25 / cg"
 ! !
 
 !MethodChange methodsFor:'applying'!
@@ -186,5 +198,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.24 2000-02-03 18:31:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.25 2000-03-21 12:45:23 cg Exp $'
 ! !