[Seaside] Bug and fix?

[Michel Bany]

>  
>     So I've changed it to
>  
> WAHtmlRenderer>>labelledRowForList: aCollection on: aSymbol of: anObject
>  self tableRowWithLabel: (anObject labelForSelector: aSymbol) column:
>   [self
>    selectFromList: aCollection
>    selected: (anObject perform: aSymbol)
>    callback: (self callbackForSelector: aSymbol of: anObject)]

Yes, but I think the author's intention was more something like this :

 self tableRowWithLabel: (self labelForSelector: aSymbol) column:
  [self
   selectFromList: aCollection
   selected: (anObject perform: aSymbol)
   callback: (self callbackForSelector: aSymbol of: anObject)]

Michel.