--- a/Method.st	Wed Oct 12 13:21:28 2011 +0100
+++ b/Method.st	Wed Oct 12 22:06:06 2011 +0100
@@ -2058,7 +2058,7 @@
     "/
     "/ if there is no SourceManager, look in local standard places first
     "/
-    package == mclass package ifTrue:[
+    (mclass notNil and:[package == mclass package]) ifTrue:[
         mgr := mclass sourceCodeManagerFromBinaryRevision
     ] ifFalse:[
         "I'm an extension and we don't have binary revision info (!!)
@@ -2176,7 +2176,7 @@
     ^ nil
 
     "Modified: / 26-11-2006 / 22:33:38 / cg"
-    "Modified: / 12-10-2011 / 13:18:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-10-2011 / 18:20:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setLookupObject: lookup
@@ -3590,7 +3590,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Method.st 10718 2011-10-12 12:21:28Z vranyj1 $'
+    ^ '$Id: Method.st 10719 2011-10-12 21:06:06Z vranyj1 $'
 !
 
 version_CVS
@@ -3598,7 +3598,7 @@
 !
 
 version_SVN
-    ^ '$Id: Method.st 10718 2011-10-12 12:21:28Z vranyj1 $'
+    ^ '$Id: Method.st 10719 2011-10-12 21:06:06Z vranyj1 $'
 ! !
 
 Method initialize!