--- a/Class.st	Wed Sep 01 13:28:56 1999 +0200
+++ b/Class.st	Wed Sep 01 13:29:47 1999 +0200
@@ -3694,7 +3694,6 @@
     ].
 
     aStream isNil ifTrue:[
-
         "/ mhmh - still no source file.
         "/ If there is a SourceCodeManager, ask it to aquire the
         "/ the source for my class, and return an open stream on it. 
@@ -3702,6 +3701,9 @@
         "/ standard places
 
         mgr notNil ifTrue:[
+            classFilename isNil ifTrue:[
+                classFilename := (Smalltalk fileNameForClass:self) , '.st'.
+            ].
             source asFilename baseName = classFilename asFilename baseName ifTrue:[
                 aStream := mgr getSourceStreamFor:self.
                 aStream notNil ifTrue:[
@@ -3904,5 +3906,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.348 1999-08-28 22:53:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.349 1999-09-01 11:29:47 cg Exp $'
 ! !