--- a/extensions.st	Wed Apr 04 12:32:50 2012 +0200
+++ b/extensions.st	Wed Apr 04 12:33:31 2012 +0200
@@ -406,30 +406,17 @@
 !UserPreferences methodsFor:'accessing-scm-monticello'!
 
 mcRepositories
+    "Returns a list of MCRepository as in LITERAL ARRAY ENCODING"
 
-    | repos |
-    repos := self at: #mcRepositories ifAbsent:[#()].
-    ^repos decodeAsLiteralArray
+    ^self at: #mcRepositories ifAbsent:[#(Array)].
 
     "
-        self mcRepositories: #() 
+        UserPreferences current mcRepositories
+        UserPreferences current mcRepositories: #(Array) 
     "
 
     "Created: / 16-09-2010 / 09:47:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 17-09-2010 / 11:45:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!UserPreferences methodsFor:'accessing-scm-monticello'!
-
-mcRepositories: aCollection
-
-    | repos |
-    repos  := aCollection literalArrayEncoding.
-    self at: #mcRepositories put:repos.
-    MCRepositoryGroup default flushRepositories.
-
-    "Created: / 16-09-2010 / 09:53:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 16-09-2010 / 13:56:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 04-04-2012 / 11:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VersionInfo methodsFor:'accessing'!
@@ -446,5 +433,5 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.15 2012-01-15 14:28:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.16 2012-04-04 10:33:31 vrany Exp $'
 ! !
\ No newline at end of file