--- a/Class.st	Wed Mar 03 20:16:20 1999 +0100
+++ b/Class.st	Wed Mar 03 20:37:50 1999 +0100
@@ -3195,6 +3195,12 @@
 	fileName notNil ifTrue:[
 	    ^ fileName asFilename readStream.
 	].
+	(package startsWith:'stx/') ifTrue:[
+	    fileName := Smalltalk getSourceFileName:((package copyFrom:5) , '/' , sourceFile).
+	    fileName notNil ifTrue:[
+		^ fileName asFilename readStream.
+	    ]
+	]
     ].
 
     "/
@@ -3901,5 +3907,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.329 1999-02-27 13:40:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.330 1999-03-03 19:37:50 cg Exp $'
 ! !