--- a/extensions.st	Sat Jul 09 16:15:48 2011 +0200
+++ b/extensions.st	Sat Jul 09 16:16:38 2011 +0200
@@ -100,8 +100,15 @@
 
 managerPerMatchingModuleDefinitions
 
-    ^(self at: #managerPerMatchingModuleDefinitions ifAbsent:[#(#OrderedCollection)])
-        decodeAsLiteralArray
+    | defs |
+
+    defs := (self at: #managerPerMatchingModuleDefinitions ifAbsent:[^OrderedCollection new]).
+    ^defs decodeAsLiteralArray asOrderedCollection
+
+    "
+        UserPreferences current managerPerMatchingModuleDefinitions
+        UserPreferences current managerPerMatchingModuleDefinitions: #().
+    "
 
     "Created: / 09-07-2011 / 13:33:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -111,7 +118,7 @@
 managerPerMatchingModuleDefinitions: defs
 
     self at: #managerPerMatchingModuleDefinitions 
-        put: defs literalArrayEncoding.
+        put: defs asArray literalArrayEncoding.
     AbstractSourceCodeManager managerPerMatchingModuleDefinitions == defs ifFalse:[
         AbstractSourceCodeManager managerPerMatchingModuleDefinitions: defs.
     ]
@@ -122,5 +129,5 @@
 !stx_libbasic3 class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.5 2011-07-09 13:39:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.6 2011-07-09 14:16:38 vrany Exp $'
 ! !
\ No newline at end of file