axlEnterEvent using of DONE during the active FORM

Hi everybody,

I noticed that the DONE function in axlEnterEvent doesn't works if the FORM (axlFormCreate) is active. Example:

axlCmdRegister( "test" 'test  ?cmdType "interactive")
form = axlFormCreate( (gensym) "FORM.form" nil test_run t)

procedure( test_run(form)
case( form -> curField  ; funktioniert nicht mit "fields" anstelle von curField

(‘button1
       test1()
)

(‘button2
       test2()
)
);end case
); end procedure test_run

procedure( test1()

        loop = t                          

        while( loop

            event = axlEnterEvent(list('PICK ‘DONE ‘CANCEL nil nil)

            caseq(event->type

                ('PICK           
                         do something one
                 ); end PICK

                 (‘DONE

                     do something two
                 ); end DONE
)

)

If the form appears I can check the button 1 starting test 1. By PICK the "do something one" is started. If I click right mouse button in order making DONE I see   "Snap pick to" only. My FORM is active and I guess that is the problem, why I dont' see the DONE function. I work in the Command mode not in the SKILL mode
Some ideas how it could be fixed?
Thanks