Problem with Textarea

I'm sure it's a silly mistake, but I can't figure it out right now. If I have a TextArea-Gadget, why can't I read out the content

Strict 

Local window:TGadget
Local textarea:TGadget

window=CreateWindow("My Window",130,20,200,200,,15|WINDOW_ACCEPTFILES)

textarea=CreateTextArea(0,0,ClientWidth(window),ClientHeight(window)/2,window)
SetGadgetLayout textarea,1,1,1,1
SetGadgetText textarea,"a textarea gadget~none line~nandanother"


While WaitEvent()
	Print GadgetText(textarea)
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_APPTERMINATE
			End
	End Select
Wend

If I type something in it, GadgetText() always returns the orginal (old) content !???

Works fine for me but I am using SVN Maxgui

I'm also using the SVN version, but I didn't update for some time, so I started updating it. Now, I even can't build the GUI-Modules *damn*. Will have a look into it tomorrow.

BTW: On Mac OS X the code works like a charm, so I think this really was an bug in the svn revision I used.