[plt-scheme] message-box not on foreground

Hi,
When I run the following by pushing the run button, everything is fine.

; Graphical (MrEd, includes MzScheme)
(require (lib "file.ss"))
(get-file "select a file" #f (current-directory) #f #f () ())
(message-box "problem" "this is message box may not be active." #f '(ok))

When I create an executable, and run it, the open-file menu works fine and the message box is opened, but the latter does not appear as the active window. Shouldn't it be on foreground? How can I force it to become the activewindow?

Jos Koot
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20061215/d11e9dec/attachment.html>