From VisualWorks® NonCommercial, 7.4 of December 5, 2005 on May 10, 2006 at 5:14:33 pm CormasNS.Kernel.CormasModel class instance-creation createReaderAccessor: aName "creates a reader accessor such as : theXXXs ^theXXXs ifNil:[theXXXs := IndexedSet new]. aName ('XXX') is completed as theXXXs" | pop | pop := 'the' , aName , 's'. self compile: (pop , '\^' , pop, ' ifNil:[', pop, ' := IndexedSet new]') withCRs classified: 'accessing' notifying: nil.