I got a pretty large number with these announcements... provided nothing special is running at the moment...

Announcement allSubInstances size. 14120

And:

(Announcement allSubInstances collect: [ :a | a class ]) asSet a Set(WindowOpened WindowLabelled WindowClosed KMCompleteMatch TestSuiteEnded ClassRemoved)

And�

ann:=(Announcement allSubInstances collect: [ :a | a class ]) asSet.

ann do: [ �:each | Transcript nextPutAll: each className; nextPut: $:; nextPutAll: each allInstances size printString;cr].

Transcript flush.

gives:

WindowOpened class:WindowOpened class:953

WindowOpened class:956

WindowLabelled class:11837

WindowClosed class:1345

KMCompleteMatch class:6

TestSuiteEnded class:1

ClassRemoved class:1

Well, 11837 for WindowLabelled is quite large.

Hope it gives a hint.

Phil