--- a/Method.st	Fri Oct 28 04:05:01 1994 +0100
+++ b/Method.st	Fri Oct 28 04:06:40 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.20 1994-10-28 01:25:18 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.21 1994-10-28 03:06:36 claus Exp $
 '!
 
 !Method class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.20 1994-10-28 01:25:18 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.21 1994-10-28 03:06:36 claus Exp $
 "
 !
 
@@ -184,6 +184,9 @@
 
 	aStream isNil ifTrue:[
 	    fileName := Smalltalk getSystemFileName:('source/' , source).
+	    fileName isNil ifTrue:[
+		fileName := source
+	    ].
 	    aStream := fileName asFilename readStream.
 	].
 
@@ -211,7 +214,7 @@
     sourcePosition := nil
 !
 
-sourceFileName
+sourceFilename
     "return the sourcefilename if source is extern; nil otherwise"
 
     sourcePosition notNil ifTrue:[^ source].
@@ -224,7 +227,7 @@
     ^ sourcePosition
 !
 
-sourceFileName:aFileName position:aNumber
+sourceFilename:aFileName position:aNumber
     "set the methods sourcefile/position"
 
     source := aFileName.
@@ -1218,7 +1221,7 @@
     "
      try to save a bit of memory, by sharing the source (whatever it is)
     "
-    temporaryMethod sourceFileName:source position:sourcePosition. 
+    temporaryMethod sourceFilename:source position:sourcePosition. 
     ^ temporaryMethod
 
     "