--- a/AbstractSourceCodeManager.st	Sat Jul 09 15:45:29 2011 +0200
+++ b/AbstractSourceCodeManager.st	Sat Jul 09 16:15:48 2011 +0200
@@ -147,7 +147,7 @@
     "update the per-module manager definitions, adding a manager class for a matchString"
 
     ManagerPerModule isNil ifTrue:[
-        ManagerPerModule := OrderedCollection new.
+        ManagerPerModule := UserPreferences current managerPerMatchingModuleDefinitions.
     ].
     ManagerPerModule do:[:each |
         |packageMatch|
@@ -171,16 +171,14 @@
     "
 
     "Created: / 18-04-2011 / 19:48:19 / cg"
-    "Modified: / 09-07-2011 / 14:24:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-07-2011 / 15:05:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 managerForModule:aPackageID
     "return the sourceCodeManager for a aPackageID, nil if unspecified in the manager per package list"
 
-    ManagerPerModule notNil ifTrue:[
-        ManagerPerModule do:[:each |
-            (each match:aPackageID) ifTrue:[^ each manager].
-        ].
+    self managerPerMatchingModuleDefinitions do:[:each |
+        (each match:aPackageID) ifTrue:[^ each manager].
     ].
     ^ nil
 
@@ -191,7 +189,7 @@
     "
 
     "Created: / 18-04-2011 / 19:39:19 / cg"
-    "Modified (comment): / 09-07-2011 / 14:27:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-07-2011 / 15:09:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 managerPerMatchingModuleDefinitions
@@ -3033,7 +3031,7 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.247 2011-07-09 13:45:29 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.248 2011-07-09 14:15:48 vrany Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!