[bug] ?

I am attempting to add labels to an MASingleOptionDescription. as in: descriptionImprintChooser ^MASingleOptionDescription new auto: 'imprint'; options: [ PRCurrentContext value currentUserImprints ] asDynamicObject; propertyAt: #labels put: [ ... build a dictionary here ... ] asDynamicObject; label: 'Imprint'; priority: 140; bePersisted; yourself however I suspect that an addition of "yourself" is needed for this to work: MAOptionDescription-labelForOption: anObject self propertyAt: #labels ifPresent: [ :labels | labels /yourself/ at: anObject ifPresent: [ :value | ^ value ] ]. ^ self reference toString: anObject Instead I chose to implement the above by supplying a selector whch can be performed on the object to obtain its label... labelForOption: anObject self propertyAt: #labelSelector ifPresent: [ :selector | ^ anObject perform: #labelSelector ]. self propertyAt: #labels ifPresent: [ :labels | labels yourself at: anObject ifPresent: [ :value | ^ value ] ]. ^ self reference toString: anObject cheers Keith