-(defmethod initialize-instance ((reference tree-row-reference) &key model path)
- (setf
- (foreign-location reference)
- (%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))