-(defmethod initialize-instance ((reference tree-row-reference) &key model path)
- (setf
- (slot-value reference 'location)
- (%tree-row-reference-new model path))
- (call-next-method))
+(defmethod allocate-foreign ((reference tree-row-reference) &key model path)
+ (%tree-row-reference-new model path))