--- a/Change.st	Tue Dec 07 14:29:29 1999 +0100
+++ b/Change.st	Tue Dec 07 15:19:29 1999 +0100
@@ -44,6 +44,19 @@
 
 !Change methodsFor:'accessing'!
 
+changeClass
+    "the class of the change (nil if not present)"
+
+    ^ nil
+
+!
+
+changeSelector
+    ^ nil
+
+    "Created: / 6.2.1998 / 13:29:35 / cg"
+!
+
 className
     "the className of the change"
 
@@ -189,5 +202,5 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.24 1999-12-07 13:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.25 1999-12-07 14:18:44 cg Exp $'
 ! !

--- a/ClassChange.st	Tue Dec 07 14:29:29 1999 +0100
+++ b/ClassChange.st	Tue Dec 07 15:19:29 1999 +0100
@@ -52,6 +52,13 @@
 
 !ClassChange methodsFor:'accessing'!
 
+changeClass
+    "the class of the change (nil if not present)"
+
+    className isNil ifTrue:[^ nil].
+    ^ Smalltalk classNamed:className
+!
+
 class:aClass
     "set the class of the change"
 
@@ -90,5 +97,5 @@
 !ClassChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.17 1999-07-15 19:47:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassChange.st,v 1.18 1999-12-07 14:19:10 cg Exp $'
 ! !

--- a/MethodChange.st	Tue Dec 07 14:29:29 1999 +0100
+++ b/MethodChange.st	Tue Dec 07 15:19:29 1999 +0100
@@ -51,6 +51,12 @@
 
 !MethodChange methodsFor:'accessing'!
 
+changeSelector
+    ^ selector
+
+    "Created: / 6.2.1998 / 13:29:25 / cg"
+!
+
 class:cls selector:sel source:src category:cat
     className := cls name.
     selector := sel.
@@ -162,5 +168,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.21 1999-12-07 13:29:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.22 1999-12-07 14:19:29 cg Exp $'
 ! !