--- a/MCRepositoryGroup.st	Wed Apr 04 12:32:31 2012 +0200
+++ b/MCRepositoryGroup.st	Wed Apr 04 12:32:50 2012 +0200
@@ -21,7 +21,10 @@
 !MCRepositoryGroup class methodsFor:'as yet unclassified'!
 
 default
-	^ default ifNil: [default _ self new]
+    default isNil ifTrue: [default := self new].
+    ^default
+
+    "Modified: / 04-04-2012 / 11:04:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 new
@@ -70,11 +73,12 @@
 initializeRepositoriesFromUserSettings
     |litArray reps|
 
-    litArray := UserPreferences current at: #mcRepositories ifAbsent:#().
+    litArray := UserPreferences current mcRepositories.
     reps := litArray decodeAsLiteralArray.
     repositories := OrderedCollection withAll:reps.
 
     "Created: / 04-12-2011 / 09:06:53 / cg"
+    "Modified: / 04-04-2012 / 11:08:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 removeRepository: aRepository
@@ -91,6 +95,19 @@
     "Modified: / 04-12-2011 / 09:04:42 / cg"
 !
 
+repositories: anOrderedCollection
+
+    repositories := anOrderedCollection copy.
+    "Ensure, that repositories contain cache as first"
+    repositories remove: MCCacheRepository default ifAbsent:[].
+    repositories addFirst: MCCacheRepository default.
+    self == self class default ifTrue:[
+        UserPreferences current mcRepositories: repositories asArray literalArrayEncoding
+    ].
+
+    "Created: / 04-04-2012 / 11:05:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 repositoriesDo: aBlock
 	self repositories do: [:ea | [aBlock value: ea] on: Error do: []]
 ! !
@@ -109,5 +126,5 @@
 !MCRepositoryGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryGroup.st,v 1.5 2012-01-24 09:52:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryGroup.st,v 1.6 2012-04-04 10:32:50 vrany Exp $'
 ! !