upload and div: message not understood #filename

[davos1]

Hi,
the upload command inside any div causes the error: message not understood: #filename.

example:

div x
upload "Choose a JPG file to upload. "; nameOfJpg$  
end div

Message not understood: #fileName

* ByteString(Object)>>doesNotUnderstand:

self '6.jpg'
temps
aMessage a Message with selector: #fileName and arguments: #()
excpt a MessageNotUnderstood
resumeValue nil

* SessionPage>>uploaded:

self a SessionPage
temps
t1 an UploadElementFactory
t2 nil
t3 nil
inst vars
decoration a Seaside.WAStateHolder(a SessionPage)
director a ProgramDirector
children OrderedCollection (a ProjectEditor a DivIoPortal)
outputBuffer OrderedCollection ()
inputStream nil
hideCodeEditor nil
name 'Project'
initialCode ''
noticeString nil
sourceHolder a SourceHolder on: div x upload "Choose a JPG file to upload. "; nameOfJpg$ end div
runningProcess a Process in WaitSemaphore(Semaphore)>>wait
runBasic a RunBASICPersonal
initialSize nil
runManager a RunManager
hasPages nil
uploadedFilename nil
modalComponent nil
titleBlock BlockClosure [] in RunBASICPersonal>>newProjectPage
pageStyles a PageStyles
userAgentString 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.1b3) Gecko/20090305 Firefox/3.1b3'
padEmptyLines false
identifier 1314
formAttributes nil

* MessageSend>>value

self a MessageSend with receiver: a SessionPage, selector: #uploaded: and arguments: #(an UploadElementFactory)...etc...
temps
inst vars
selector #uploaded:
args #(an UploadElementFactory)
receiver a SessionPage

* MessageSend>>evaluate

self a MessageSend with receiver: a SessionPage, selector: #uploaded: and arguments: #(an UploadElementFactory)...etc...
temps
inst vars
selector #uploaded:
args #(an UploadElementFactory)
receiver a SessionPage

* UploadElementFactory(Object)>>triggerEvent:

self an UploadElementFactory
temps
t1 #uploaded
inst vars
clsBlock nil
text 'Choose a JPG file to upload. '
uploadedFile '6.jpg'
uploaded nil
director a ProgramDirector