[Newbies] EmphasizedMenu question

[Thomas Keller]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/beginners/attachments/20060622/f243777f/attachment.htm