--- a/Obsolete.st	Mon Sep 23 14:40:14 1996 +0200
+++ b/Obsolete.st	Mon Sep 23 15:18:15 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-BinaryStorage'
 !
 
-!ObsoleteObject class methodsFor:'documentation'!
+!ObsoleteObject  class methodsFor:'documentation'!
 
 copyright
 "
@@ -61,7 +61,7 @@
 "
 ! !
 
-!ObsoleteObject class methodsFor:'initialization'!
+!ObsoleteObject  class methodsFor:'initialization'!
 
 initialize
 
@@ -76,7 +76,7 @@
     "Modified: 30.4.1996 / 14:46:13 / cg"
 ! !
 
-!ObsoleteObject class methodsFor:'Signal constants'!
+!ObsoleteObject  class methodsFor:'Signal constants'!
 
 obsoleteObjectSignal
     "return the signal raised when a message is sent to an Obsolete
@@ -90,11 +90,13 @@
 !ObsoleteObject methodsFor:'message catching'!
 
 doesNotUnderstand: aMessage
-	"the only thing obsolete objects understand is that they dont understand
-	 anything."
+    "the only thing obsolete objects understand is that they dont understand
+     anything."
 
-	^ ObsoleteObjectSignal 
-		 raiseRequestWith:aMessage
+    ^ ObsoleteObjectSignal 
+             raiseRequestWith:aMessage
+
+    "Modified: 23.9.1996 / 15:17:37 / cg"
 ! !
 
 !ObsoleteObject methodsFor:'required protocol'!
@@ -132,6 +134,39 @@
 	selector:#basicSize
 !
 
+become:index
+    "this method is required to allow cloning of the object"
+
+    ^ (Object compiledMethodAt:#become:)
+        valueWithReceiver:self
+        arguments:(Array with:index)
+        selector:#become:
+
+    "Created: 23.9.1996 / 15:16:37 / cg"
+!
+
+becomeNil
+    "this method is required to allow restore of the object"
+
+    ^ (Object compiledMethodAt:#becomeNil)
+        valueWithReceiver:self
+        arguments:nil
+        selector:#becomeNil
+
+    "Created: 23.9.1996 / 15:17:14 / cg"
+!
+
+becomeSameAs:index
+    "this method is required to allow cloning of the object"
+
+    ^ (Object compiledMethodAt:#becomeSameAs:)
+        valueWithReceiver:self
+        arguments:(Array with:index)
+        selector:#becomeSameAs:
+
+    "Created: 23.9.1996 / 15:16:50 / cg"
+!
+
 class
     "this method is required to allow restore of the object"
 
@@ -193,9 +228,9 @@
 	selector:#readBinaryContentsFrom:manager:
 ! !
 
-!ObsoleteObject class methodsFor:'documentation'!
+!ObsoleteObject  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Obsolete.st,v 1.12 1996-04-30 12:46:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Obsolete.st,v 1.13 1996-09-23 13:18:15 cg Exp $'
 ! !
 ObsoleteObject initialize!

--- a/ObsoleteObject.st	Mon Sep 23 14:40:14 1996 +0200
+++ b/ObsoleteObject.st	Mon Sep 23 15:18:15 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-BinaryStorage'
 !
 
-!ObsoleteObject class methodsFor:'documentation'!
+!ObsoleteObject  class methodsFor:'documentation'!
 
 copyright
 "
@@ -61,7 +61,7 @@
 "
 ! !
 
-!ObsoleteObject class methodsFor:'initialization'!
+!ObsoleteObject  class methodsFor:'initialization'!
 
 initialize
 
@@ -76,7 +76,7 @@
     "Modified: 30.4.1996 / 14:46:13 / cg"
 ! !
 
-!ObsoleteObject class methodsFor:'Signal constants'!
+!ObsoleteObject  class methodsFor:'Signal constants'!
 
 obsoleteObjectSignal
     "return the signal raised when a message is sent to an Obsolete
@@ -90,11 +90,13 @@
 !ObsoleteObject methodsFor:'message catching'!
 
 doesNotUnderstand: aMessage
-	"the only thing obsolete objects understand is that they dont understand
-	 anything."
+    "the only thing obsolete objects understand is that they dont understand
+     anything."
 
-	^ ObsoleteObjectSignal 
-		 raiseRequestWith:aMessage
+    ^ ObsoleteObjectSignal 
+             raiseRequestWith:aMessage
+
+    "Modified: 23.9.1996 / 15:17:37 / cg"
 ! !
 
 !ObsoleteObject methodsFor:'required protocol'!
@@ -132,6 +134,39 @@
 	selector:#basicSize
 !
 
+become:index
+    "this method is required to allow cloning of the object"
+
+    ^ (Object compiledMethodAt:#become:)
+        valueWithReceiver:self
+        arguments:(Array with:index)
+        selector:#become:
+
+    "Created: 23.9.1996 / 15:16:37 / cg"
+!
+
+becomeNil
+    "this method is required to allow restore of the object"
+
+    ^ (Object compiledMethodAt:#becomeNil)
+        valueWithReceiver:self
+        arguments:nil
+        selector:#becomeNil
+
+    "Created: 23.9.1996 / 15:17:14 / cg"
+!
+
+becomeSameAs:index
+    "this method is required to allow cloning of the object"
+
+    ^ (Object compiledMethodAt:#becomeSameAs:)
+        valueWithReceiver:self
+        arguments:(Array with:index)
+        selector:#becomeSameAs:
+
+    "Created: 23.9.1996 / 15:16:50 / cg"
+!
+
 class
     "this method is required to allow restore of the object"
 
@@ -193,9 +228,9 @@
 	selector:#readBinaryContentsFrom:manager:
 ! !
 
-!ObsoleteObject class methodsFor:'documentation'!
+!ObsoleteObject  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObsoleteObject.st,v 1.12 1996-04-30 12:46:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObsoleteObject.st,v 1.13 1996-09-23 13:18:15 cg Exp $'
 ! !
 ObsoleteObject initialize!