--- a/Class.st	Wed Apr 22 18:02:55 1998 +0200
+++ b/Class.st	Wed Apr 22 18:04:59 1998 +0200
@@ -3245,12 +3245,25 @@
                         ]
                     ]
                 ].
+
+                "/ and also in source/source.zip ...
+
+                fileName := Smalltalk getSourceFileName:'source.zip'.
+                fileName notNil ifTrue:[
+                    zar := ZipArchive oldFileNamed:fileName.
+                    zar notNil ifTrue:[
+                        entry := zar extract:sourceFile.
+                        entry notNil ifTrue:[
+                            ^ entry asString readStream
+                        ]
+                    ]
+                ].
             ]
         ]
     ].
     ^ nil
 
-    "Modified: / 4.4.1998 / 22:57:53 / cg"
+    "Modified: / 22.4.1998 / 18:04:15 / cg"
 !
 
 packageSourceCodeInfo
@@ -3902,5 +3915,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.306 1998-04-09 11:30:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.307 1998-04-22 16:04:59 cg Exp $'
 ! !