--- a/Class.st	Thu Nov 23 01:12:39 1995 +0100
+++ b/Class.st	Thu Nov 23 01:27:24 1995 +0100
@@ -106,7 +106,7 @@
 !
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.79 1995-11-23 00:12:39 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.80 1995-11-23 00:26:55 cg Exp $'! !
 
 !Class class methodsFor:'initialization'!
 
@@ -934,14 +934,16 @@
     ].
 
     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:[
 	"/      
 	"/ hard case - there is no source file for this class
-	"/ (neither in the source-dir-path, nor in the current directory).
+	"/ (in the source-dir-path).
 	"/      
 
 	"/      
@@ -977,7 +979,14 @@
 
 	SourceCodeManager notNil ifTrue:[
 	    aStream := SourceCodeManager sourceStreamFor:self.
-	]
+	].
+
+	"/
+	"/ final chance: try current directory
+	"/
+	aStream isNil ifTrue:[
+	    aStream := source asFilename readStream.
+	].
     ].
 
     ^ aStream
@@ -988,6 +997,7 @@
     "
 
     "Created: 10.11.1995 / 21:05:13 / cg"
+    "Modified: 23.11.1995 / 01:22:57 / cg"
 ! !
 
 !Class methodsFor:'adding/removing'!