--- a/MCRepository.st	Wed Oct 12 23:05:08 2011 +0200
+++ b/MCRepository.st	Fri Nov 25 11:31:28 2011 +0100
@@ -71,11 +71,9 @@
 	^ 'mcSettings'
 ! !
 
-!MCRepository methodsFor:'as yet unclassified'!
+
 
-= other
-	^ other species = self species and: [other description = self description]
-!
+!MCRepository methodsFor:'as yet unclassified'!
 
 alwaysStoreDiffs
 	^ storeDiffs ifNil: [false]
@@ -85,10 +83,6 @@
 	^ self creationTemplate
 !
 
-basicStoreVersion: aVersion
-	self subclassResponsibility
-!
-
 closestAncestorVersionFor: anAncestry ifNone: errorBlock
 	| v | 
 	anAncestry breadthFirstAncestorsDo:
@@ -119,10 +113,6 @@
 	storeDiffs := false
 !
 
-hash
-	^ self description hash
-!
-
 notificationForVersion: aVersion
 	^ MCVersionNotification version: aVersion repository: self
 !
@@ -142,25 +132,22 @@
 		ifFalse: [aVersion]
 !
 
-printOn: aStream
-	super printOn: aStream.
-	aStream
-		nextPut: $(;
-		nextPutAll: self description;
-		nextPut: $).
-!
-
 sendNotificationsForVersion: aVersion
 	| notification notifyList |
 	notifyList := self notifyList.
 	notifyList isEmpty ifFalse:
 		[notification := self notificationForVersion: aVersion.
 		notifyList do: [:ea | notification notify: ea]]
+! !
+
+!MCRepository methodsFor:'comparing'!
+
+= other
+	^ other species = self species and: [other description = self description]
 !
 
-storeVersion: aVersion
-	self basicStoreVersion: (self prepareVersionForStorage: aVersion).
-	self sendNotificationsForVersion: aVersion
+hash
+	^ self description hash
 ! !
 
 !MCRepository methodsFor:'interface'!
@@ -177,6 +164,25 @@
 	self subclassResponsibility 
 ! !
 
+!MCRepository methodsFor:'printing & storing'!
+
+basicStoreVersion: aVersion
+	self subclassResponsibility
+!
+
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPut: $(;
+		nextPutAll: self description;
+		nextPut: $).
+!
+
+storeVersion: aVersion
+	self basicStoreVersion: (self prepareVersionForStorage: aVersion).
+	self sendNotificationsForVersion: aVersion
+! !
+
 !MCRepository methodsFor:'testing'!
 
 isValid
@@ -186,11 +192,11 @@
 !MCRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.4 2011-08-20 12:21:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.5 2011-11-25 10:31:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.4 2011-08-20 12:21:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.5 2011-11-25 10:31:28 cg Exp $'
 !
 
 version_SVN