--- a/Class.st	Sat Sep 01 00:43:20 2001 +0200
+++ b/Class.st	Sun Sep 02 16:52:31 2001 +0200
@@ -260,6 +260,7 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
+
 !Class methodsFor:'Compatibility - ST80'!
 
 fileOutSourceOn:aStream
@@ -3261,6 +3262,12 @@
     ]
 
     "Modified: / 25.11.1998 / 12:40:31 / cg"
+!
+
+storeOn:aStream
+    "append my name only - expects class to be there, when restoring"
+
+    aStream nextPutAll:self name
 ! !
 
 !Class methodsFor:'private changes management'!
@@ -4645,5 +4652,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.397 2001-05-22 23:07:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.398 2001-09-02 14:52:31 cg Exp $'
 ! !