I've often wondered why, when I search for some string that isn't there, I see the text morph flash sometimes, but not always. Here's a fix.

Cheers,
Bob

'From Squeak4.4 of 1 March 2013 [latest update: #12489] on 18 August 2013 at 11:49:45 am'!

!Morph methodsFor: 'macpal' stamp: 'raa 8/18/2013 06:44'!
flash
    | originalColor |
    originalColor := self color.
    [ self color:
        (originalColor
            ifNil: [ Color black ]
            ifNotNil: [ (originalColor alpha: 1) negated ]) ]
        ensure:
            [ self world ifNotNil: [ : w | w displayWorldSafely. (Delay forMilliseconds: 100) wait ].
            self color: originalColor ]! !