--- a/Class.st	Wed Feb 07 11:42:16 2007 +0100
+++ b/Class.st	Wed Feb 07 11:53:08 2007 +0100
@@ -1376,8 +1376,10 @@
     "/ see if there is a package-specific manager
     package notNil ifTrue:[
         module := package upTo:$:.
-        AbstractSourceCodeManager availableManagers do:[:mgr |
-            (mgr isResponsibleForModule:module) ifTrue:[^ mgr ].
+        AbstractSourceCodeManager notNil ifTrue:[
+            AbstractSourceCodeManager availableManagers do:[:mgr |
+                (mgr isResponsibleForModule:module) ifTrue:[^ mgr ].
+            ]
         ].
     ].
     ^ Smalltalk at:#SourceCodeManager
@@ -4735,5 +4737,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.524 2006-12-06 10:45:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.525 2007-02-07 10:53:08 ca Exp $'
 ! !