EmphasizedMenu question

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
_______________________________________________
Beginners mailing list
Beginners@xxxxxxxxxxxxxxxxxxxxxxxxxx
http://lists.squeakfoundation.org/mailman/listinfo/beginners