--- a/MCClassDefinition.st	Sun Sep 04 09:33:10 2011 +0200
+++ b/MCClassDefinition.st	Mon Sep 05 07:26:27 2011 +0200
@@ -255,12 +255,15 @@
         mcDefinition: self;
         className: name;
         superClassName: superclassName;
-        instanceVariableNames: (String streamContents: [:s|variables do:[:v|s nextPutAll: v name; space]]) ;
+        instanceVariableNames: (String streamContents: [:s|self instVarNames do:[:nm|s nextPutAll: nm; space]]) ;
+        classVariableNames: (String streamContents: [:s|self classVarNames do:[:nm|s nextPutAll: nm; space]]) ;
+        classInstanceVariableNames: (String streamContents: [:s|self classInstVarNames do:[:nm|s nextPutAll: nm; space]]) ;
         category: category;
         yourself
 
     "Created: / 13-10-2010 / 17:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-11-2010 / 17:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2011 / 19:50:56 / cg"
 ! !
 
 !MCClassDefinition methodsFor:'initializing'!
@@ -528,11 +531,11 @@
 !MCClassDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.4 2011-08-20 12:26:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.5 2011-09-05 05:26:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.4 2011-08-20 12:26:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.5 2011-09-05 05:26:27 cg Exp $'
 !
 
 version_SVN