--- a/ChangeSet.st	Tue Oct 18 11:11:33 2005 +0200
+++ b/ChangeSet.st	Tue Oct 18 11:11:49 2005 +0200
@@ -1296,6 +1296,22 @@
 
     change := ClassDefinitionChange new.
     change className:className; source:(parseTree printString).
+    change superClassName:receiver name.
+
+    selector keywords with:arguments do:[:kw :arg |
+        kw = #'instanceVariableNames:' ifTrue:[
+            change instanceVariableNames:arg evaluate.
+        ].
+        kw = #'classVariableNames:' ifTrue:[
+            change classVariableNames:arg evaluate.
+        ].
+        kw = #'poolDictionaries:' ifTrue:[
+            change poolDictionaries:arg evaluate.
+        ].
+        kw = #'category:' ifTrue:[
+            change category:arg evaluate.
+        ].
+    ].
 
     change package:(Class packageQuerySignal query).
 "/        nameSpace ~~ Smalltalk ifTrue:[
@@ -1950,5 +1966,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.120 2005-06-29 19:36:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.121 2005-10-18 09:11:49 cg Exp $'
 ! !