Greetings,
I'm working through http://www.maartensz.org/computing/squeak/Helps/Environment/Workspaces4.htm
and
(EmphasizedMenu
selections: #('bold' 'plain' 'italic' 'struckout' 'plain' 'nice menu!')
emphases: #(bold plain italic struckOut plain bold))
startUp

Gives me the "MessageNotUnderstood" error:
doesNotUnderstand: aMessage
     "Handle the fact that there was an attempt to send the given message to the receiver but the receiver does not understand this message (typically sent from the machine when a message is sent to the receiver and no method is defined for that selector)."
    "Testing: (3 activeProcess)"

    (Preferences autoAccessors and: [self tryToDefineVariableAccess: aMessage])
        ifTrue: [^ aMessage sentTo: self].

    MessageNotUnderstood new
        message: aMessage;
        receiver: self;
        signal.
    ^ aMessage sentTo: self.

Can someone explain what I've done wrong? (currContext := only)
--
Tom
"Ecrasez l'Infame!" -- Voltaire