--- a/Object.st	Mon Jan 23 23:22:11 2006 +0100
+++ b/Object.st	Tue Jan 24 12:08:10 2006 +0100
@@ -549,6 +549,15 @@
     ^ self printString
 !
 
+becomeForward:anotherObject
+    self becomeSameAs:anotherObject
+!
+
+becomeForward:anotherObject copyHash:copyHash
+    copyHash ifTrue:[ self error:'unsupported operation' ].
+    self becomeSameAs:anotherObject
+!
+
 clone
     ^ self shallowCopy
 !
@@ -9300,7 +9309,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.543 2005-11-30 22:07:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.544 2006-01-24 11:08:10 cg Exp $'
 ! !
 
 Object initialize!