--- a/ClassDefinitionChange.st	Thu Jun 21 14:52:18 2018 +0200
+++ b/ClassDefinitionChange.st	Sun Jul 01 00:49:14 2018 +0200
@@ -66,8 +66,10 @@
     "Modified: / 11-10-2006 / 14:12:01 / cg"
 !
 
-category:something
-    category := something.
+category:aStringOrSymbol
+    category := aStringOrSymbol.
+
+    "Modified (format): / 30-06-2018 / 17:49:08 / Claus Gittinger"
 !
 
 classInstanceVariableNames
@@ -284,8 +286,10 @@
     "Modified: / 13-06-2012 / 12:23:41 / cg"
 !
 
-poolDictionaries:something
-    poolDictionaries := something.
+poolDictionaries:aCollectionOfPools
+    poolDictionaries := aCollectionOfPools.
+
+    "Modified (format): / 30-06-2018 / 17:52:07 / Claus Gittinger"
 !
 
 private:aBoolean
@@ -385,6 +389,13 @@
             Parser evaluate:sourceWithNamespace.       
         ].
 
+    classInstanceVariableString notEmptyOrNil ifTrue:[
+        changeClass := self changeClass.
+        changeClass notNil ifTrue:[
+            changeClass class instanceVariableString:classInstanceVariableString
+        ].
+    ].
+    
     package notNil ifTrue:[
         changeClass := self changeClass.
         changeClass notNil ifTrue:[
@@ -403,6 +414,7 @@
 
     "Modified: / 06-10-2011 / 17:01:58 / cg"
     "Modified: / 10-06-2013 / 17:12:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-07-2018 / 00:46:30 / Claus Gittinger"
 ! !
 
 !ClassDefinitionChange methodsFor:'comparing'!