--- a/AbstractSourceCodeManager.st	Wed Apr 07 15:32:18 2010 +0200
+++ b/AbstractSourceCodeManager.st	Mon Apr 12 16:54:36 2010 +0200
@@ -1273,6 +1273,10 @@
     "Created: / 09-11-2006 / 15:24:57 / cg"
 !
 
+isResponsibleForPackage:apackage
+    ^ false
+!
+
 isVersionMethodSelector: selector 
 
     selector isNil ifTrue: [^ false].
@@ -1290,11 +1294,15 @@
 !
 
 sourceCodeManagerForPackage: packageId
-
     |module|
 
-    "/ see if there is a package-specific manager
     packageId notNil ifTrue:[
+        "/ see if there is a package-specific manager
+        self availableManagers do:[:mgr |
+            (mgr isResponsibleForPackage:packageId) ifTrue:[^ mgr ].
+        ].
+
+        "/ old stuff: see if there is a module-specific manager
         module := packageId upTo:$:.
         self availableManagers do:[:mgr |
             (mgr isResponsibleForModule:module) ifTrue:[^ mgr ].
@@ -2769,11 +2777,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.234 2009-11-06 12:26:45 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.235 2010-04-12 14:54:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.234 2009-11-06 12:26:45 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.235 2010-04-12 14:54:36 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!