[ Object ] respond: [ Text ]

>> x := Object new.
x on: ['respond:'] do: { :a <- (a + ['!']).
}.
Out write: x abc.
abc!