Add Announcement>>on: aClass doOnce: aBlock

The code was suggested by @sebastianconcept on the mailinglist.