[Seaside] List Callback Not Called From Updater

[Quenio dos Santos]

Hello,
I am struggling with this one for a while, and I can't figure out what's
wrong. The callbacks in the component listed below never get called, which
makes the div not get updated. I have based this on an example I found at
http://scriptaculous.seasidehosting.st

Would anyone please point out what I am missing here?

'From Squeak3.9.1 of 2 March 2008 [latest update: #7075] on 20 June 2008 at
4:59:28 am'!
WAComponent subclass: #TMBrowser
instanceVariableNames: 'selection'
classVariableNames: ''
poolDictionaries: ''
category: 'Testmator-View'!

!TMBrowser methodsFor: 'rendering' stamp: 'QCMS 6/20/2008 04:56'!
renderContentOn: html
| fid sid |
html heading: 'Browser'.
html form
id: (fid := html nextId);
with: [
html select
list: #('1' '2');
selected: selection;
callback: [ :value | selection := value ];
onChange: (
html updater
                 id: (sid := html nextId);
                triggerForm: fid;
callback: [ :r | r render: selection ])
].
html div
  id: sid;
   with: selection.
! !


!TMBrowser methodsFor: 'accessing' stamp: 'QCMS 6/19/2008 00:42'!
selection
^selection! !

!TMBrowser methodsFor: 'accessing' stamp: 'QCMS 6/19/2008 00:43'!
selection: newSelection
selection := newSelection! !


!TMBrowser methodsFor: 'initialization' stamp: 'QCMS 6/20/2008 03:43'!
initialize
super initialize.
selection := '2'! !
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/seaside/attachments/20080620/5d51af38/attachment.htm