Levente Uzonyi uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ul.86.mcz

==================== Summary ====================

Name: EToys-ul.86
Author: ul
Time: 4 October 2011, 8:25:13.396 pm
UUID: cd189eb8-30b6-3b49-b770-8c96c42053d2
Ancestors: EToys-ul.85

- use #becomeForward: instead of #become:

=============== Diff against EToys-ul.85 ===============

Item was changed:
  ----- Method: KedamaExamplerPlayer>>delete (in category 'deleting') -----
  delete
  
- 	| anInstance |
  	turtles delete.
  	sequentialStub delete.
  
  	self class removeFromSystem: false.
  
+ 	self becomeForward: UnscriptedPlayer new
- 	anInstance := UnscriptedPlayer new.
- 	self become: anInstance.
  !

Item was changed:
  ----- Method: KedamaSequenceExecutionStub>>delete (in category 'deleting') -----
  delete
  
- 	| anInstance |
  	arrays := nil.
  	exampler := nil.
  	self class removeFromSystem: false.
+ 	self becomeForward: UnscriptedPlayer new
- 	anInstance := UnscriptedPlayer new.
- 	self become: anInstance.
  !

Item was changed:
  ----- Method: KedamaTurtleVectorPlayer>>delete (in category 'deleting') -----
  delete
  
- 	| anInstance |
  	exampler := nil.
  	arrays := nil.
  	whoTable := nil.
  	turtlesMap := nil.
  	self class removeFromSystem: false.
+ 	self becomeForward: UnscriptedPlayer new
- 	anInstance := UnscriptedPlayer new.
- 	self become: anInstance.
  !

Item was changed:
  ----- Method: Object>>assureUniClass (in category '*Etoys-viewer') -----
  assureUniClass
  	"If the receiver is not yet an instance of a uniclass, create a uniclass for it and make the receiver become an instance of that class."
  
  	| anInstance |
  	self belongsToUniClass ifTrue: [^ self].
  	anInstance := self class instanceOfUniqueClass.
+ 	self becomeForward: (self as: anInstance class).
- 	self become: (self as: anInstance class).
  	^ anInstance!

Item was changed:
  ----- Method: Player>>revertToUnscriptedPlayerIfAppropriate (in category 'misc') -----
  revertToUnscriptedPlayerIfAppropriate
  	| anInstance |
  	(self class selectors notEmpty or: [self class instVarNames notEmpty]) 
  		ifTrue: [^self].
  	anInstance := UnscriptedPlayer new.
  	anInstance initializeCostumesFrom: self.
+ 	self becomeForward: anInstance!
- 	self become: anInstance!