--- a/Method.st	Sun Jan 27 17:16:27 2008 +0100
+++ b/Method.st	Sun Jan 27 17:23:01 2008 +0100
@@ -203,7 +203,6 @@
     ^ PrivateMethodSignal
 ! !
 
-
 !Method class methodsFor:'queries'!
 
 isBuiltInClass
@@ -1676,10 +1675,12 @@
                 ].
             ].
             dir := Smalltalk projectDirectoryForPackage:package.
-            aStream := (dir asFilename construct:source) readStream.
-            aStream notNil ifTrue:[
-                ^ aStream
-            ].
+            dir notNil ifTrue:[    
+                aStream := (dir asFilename construct:source) readStream.
+                aStream notNil ifTrue:[
+                    ^ aStream
+                ].
+            ]
         ].
 
         aStream := myClass sourceStreamFor:source.
@@ -2818,7 +2819,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.310 2007-10-24 15:14:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.311 2008-01-27 16:23:01 cg Exp $'
 ! !
 
 Method initialize!