--- a/Class.st	Thu Nov 09 15:25:38 2006 +0100
+++ b/Class.st	Thu Nov 09 15:26:02 2006 +0100
@@ -1371,7 +1371,7 @@
     package notNil ifTrue:[
         module := package asPackageId module.
         AbstractSourceCodeManager availableManagers do:[:mgr |
-            (mgr repositoryInfoPerModule keys includes:module) ifTrue:[^ mgr ].
+            (mgr isResponsibleForModule:module) ifTrue:[^ mgr ].
         ].
     ].
     ^ Smalltalk at:#SourceCodeManager
@@ -1382,7 +1382,7 @@
     "
 
     "Created: / 07-12-1995 / 13:16:46 / cg"
-    "Modified: / 09-11-2006 / 15:24:15 / cg"
+    "Modified: / 09-11-2006 / 15:26:09 / cg"
 ! !
 
 !Class methodsFor:'adding & removing'!
@@ -4729,5 +4729,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.520 2006-11-09 14:25:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.521 2006-11-09 14:26:02 cg Exp $'
 ! !