Class new title: FieldReference
	subclassof: Object
	fields: 'object offset'
	declare: ''

eval 
	[object instfield: offset]

object: t1 offset: t2 
	[object _ t1.
	offset _ t2]

value 
	[object instfield: offset]

value_ t1 
	[object instfield: offset _ t1.
	t1]