--- a/Method.st	Thu Nov 23 01:12:39 1995 +0100
+++ b/Method.st	Thu Nov 23 01:27:24 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.58 1995-11-17 17:21:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.59 1995-11-23 00:27:24 cg Exp $'
 !
 
 documentation
@@ -253,16 +253,24 @@
 
 	aStream isNil ifTrue:[
 	    fileName := Smalltalk getSourceFileName:source.
-	    fileName isNil ifTrue:[
-		fileName := source
+"/            fileName isNil ifTrue:[
+"/                fileName := source
+"/            ].
+	    fileName notNil ifTrue:[
+		aStream := fileName asFilename readStream.
 	    ].
-	    aStream := fileName asFilename readStream.
 	    aStream isNil ifTrue:[
 		w := self who.
 		w notNil ifTrue:[
 		    myClass := w at:1.
 		    aStream := myClass sourceStream.
 		].
+		"/
+		"/ final chance: try current directory
+		"/
+		aStream isNil ifTrue:[
+		    aStream := source asFilename readStream.
+		].
 	    ]
 	].
 
@@ -282,7 +290,7 @@
     ].
     ^ junk
 
-    "Modified: 4.11.1995 / 19:07:27 / cg"
+    "Modified: 23.11.1995 / 01:23:48 / cg"
 !
 
 source:aString