rostebler / AnnouncementBugExample

Example usage:

50 timesRepeat: [ |scg|    
    scg := SoftwareCompositionGroup new.
    scg members: (OrderedCollection with: (Person named: 'Oscar')).
    scg whenMembersChanged: [ :aCollection |
        Transcript crShow: aCollection = scg members ].
    scg members. "Call members to set the cache"
    scg members: (OrderedCollection with: (Person named: 'Oscar') with: (Person named: 'Roger')) ].