--- a/extensions.st	Sat Jul 09 16:28:56 2011 +0200
+++ b/extensions.st	Sat Jul 09 16:44:37 2011 +0200
@@ -102,7 +102,7 @@
 
     | defs |
 
-    defs := (self at: #managerPerMatchingModuleDefinitions ifAbsent:[^OrderedCollection new]).
+    defs := (self at: #'managerPerMatchingModuleDefinitionsKey' ifAbsent:[#()]).
     ^(defs collect:[:e|e decodeAsLiteralArray]) asOrderedCollection
 
     "
@@ -117,7 +117,7 @@
 
 managerPerMatchingModuleDefinitions: defs
 
-    self at: #managerPerMatchingModuleDefinitions 
+    self at: #'managerPerMatchingModuleDefinitionsKey' 
         put: (defs collect:[:e| e literalArrayEncoding]) asArray.
     AbstractSourceCodeManager managerPerMatchingModuleDefinitions == defs ifFalse:[
         AbstractSourceCodeManager managerPerMatchingModuleDefinitions: defs.
@@ -129,5 +129,5 @@
 !stx_libbasic3 class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.7 2011-07-09 14:27:53 vrany Exp $'
-! !
\ No newline at end of file
+    ^ '$Header: /cvs/stx/stx/libbasic3/extensions.st,v 1.8 2011-07-09 14:44:37 vrany Exp $'
+! !