Colored text in a Transcript?

        Is there any way to write colored text to a Transcript?
I tried something like this:

Transcript show: ('red text' asText addAttribute:
        (TextColor color: Color red))

but it didn't work.

Mike O'Brien