Class new title: ObjectReference
	subclassof: Object
	fields: 'object'
	declare: ''

eval [object]

object: t1 
	[object _ t1]

printon: t1 
	[t1 append: '->'.
	t1 print: object]

value [object]

value_ t1 
	[object _ t1.
	object]