--- a/MCRepository.st	Wed Feb 12 15:53:40 2014 +0100
+++ b/MCRepository.st	Wed Feb 12 15:53:41 2014 +0100
@@ -21,26 +21,10 @@
 
 !MCRepository class methodsFor:'as yet unclassified'!
 
-allConcreteSubclasses
-	^ self withAllSubclasses reject: [:ea | ea isAbstract]
-!
-
-creationTemplate
-	self subclassResponsibility.
-!
-
-description
-	^ nil
-!
-
 fillInTheBlankRequest
 	self subclassResponsibility.
 !
 
-isAbstract
-	^ self description isNil
-!
-
 morphicConfigure
 	^ self new
 ! !
@@ -71,24 +55,25 @@
 	^ 'mcSettings'
 ! !
 
-
-!MCRepository methodsFor:'as yet unclassified'!
+!MCRepository class methodsFor:'queries'!
 
-alwaysStoreDiffs
-	^ storeDiffs ifNil: [false]
+allConcreteSubclasses
+	^ self withAllSubclasses reject: [:ea | ea isAbstract]
+!
+
+creationTemplate
+	self subclassResponsibility.
 !
 
-asCreationTemplate
-	^ self creationTemplate
+description
+	^ nil
 !
 
-closestAncestorVersionFor: anAncestry ifNone: errorBlock
-	| v | 
-	anAncestry breadthFirstAncestorsDo:
-		[:ancestorInfo |
-		(v := self versionWithInfo: ancestorInfo) ifNotNil: [ ^ v]].
-	^ errorBlock value
-!
+isAbstract
+	^ self description isNil
+! !
+
+!MCRepository methodsFor:'accessing'!
 
 creationTemplate
 	^ creationTemplate
@@ -102,6 +87,16 @@
 
 description
 	^ self class name
+! !
+
+!MCRepository methodsFor:'as yet unclassified'!
+
+alwaysStoreDiffs
+	^ storeDiffs ifNil: [false]
+!
+
+asCreationTemplate
+	^ self creationTemplate
 !
 
 doAlwaysStoreDiffs
@@ -120,10 +115,6 @@
 	^ #()
 !
 
-possiblyNewerVersionsOfAnyOf: someVersions
-	^#()
-!
-
 prepareVersionForStorage: aVersion
 	^ self alwaysStoreDiffs
 		ifTrue: [aVersion asDiffAgainst:
@@ -182,6 +173,20 @@
 	self sendNotificationsForVersion: aVersion
 ! !
 
+!MCRepository methodsFor:'queries'!
+
+closestAncestorVersionFor: anAncestry ifNone: errorBlock
+	| v | 
+	anAncestry breadthFirstAncestorsDo:
+		[:ancestorInfo |
+		(v := self versionWithInfo: ancestorInfo) ifNotNil: [ ^ v]].
+	^ errorBlock value
+!
+
+possiblyNewerVersionsOfAnyOf: someVersions
+	^#()
+! !
+
 !MCRepository methodsFor:'testing'!
 
 isValid
@@ -191,16 +196,17 @@
 !MCRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.6 2012-09-11 21:28:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.6 2012-09-11 21:28:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $'
 !
 
 version_SVN
 
-    ^'§Id: MCRepository.st 18 2010-10-13 12:27:08Z vranyj1 §'
+    ^'$Id: MCRepository.st,v 1.7 2014-02-12 14:53:41 cg Exp $'
 ! !
 
+
 MCRepository initialize!