--- a/MCStReader.st	Fri Nov 25 17:46:01 2011 +0100
+++ b/MCStReader.st	Fri Nov 25 17:46:13 2011 +0100
@@ -14,22 +14,6 @@
 	^ 'st'
 ! !
 
-!MCStReader methodsFor:'* As yet uncategorized *'!
-
-visitClassInstVarDefinitionChange:aChange
-    "there must be already a definition change for that class"
-
-    |nonMetaName defn|
-
-    self assert:(aChange className endsWith:' class').
-    nonMetaName := aChange className copyWithoutLast:' class' size.
-
-    defn := definitions detectLast:[:def | def isClassDefinition and:[def className = nonMetaName]].
-    defn classInstVarNames: (aChange classInstVarNames).
-
-    "Created: / 25-11-2011 / 17:32:12 / cg"
-! !
-
 !MCStReader methodsFor:'as yet unclassified'!
 
 addDefinitionsFromDoit: aString
@@ -209,6 +193,20 @@
     "Created: / 25-11-2011 / 17:20:41 / cg"
 !
 
+visitClassInstVarDefinitionChange:aChange
+    "there must be already a definition change for that class"
+
+    |nonMetaName defn|
+
+    self assert:(aChange className endsWith:' class').
+    nonMetaName := aChange className copyWithoutLast:' class' size.
+
+    defn := definitions detectLast:[:def | def isClassDefinition and:[def className = nonMetaName]].
+    defn classInstVarNames: (aChange classInstVarNames).
+
+    "Created: / 25-11-2011 / 17:32:12 / cg"
+!
+
 visitDoItChange:aChange
     self addDefinitionsFromDoit: aChange source
 
@@ -231,11 +229,11 @@
 !MCStReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.4 2011-11-25 16:46:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.5 2011-11-25 16:46:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.4 2011-11-25 16:46:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStReader.st,v 1.5 2011-11-25 16:46:13 cg Exp $'
 !
 
 version_SVN