Problem with javax.swing.JFileChooser on WindowsXP?

[alex mitchell <alexm at nus dot edu dot sg>]

I'm having problems using JFileChooser under Windows XP. After doing some
searching, it seems that this could be a Java bug which seems to have been
around for years (!?!), but I thought I'd ask here first and see if anyone
else has encountered this.

The following code works fine under MacOS and Ubuntu, but freezes under
Windows XP:

(define frame (<javax.swing.JFrame> "Test"))
(define menu-bar (<javax.swing.JMenuBar>))
(define m-menu (<javax.swing.JMenu> "Menu"))
(define m-menu-item (<javax.swing.JMenuItem> "Open"))
(invoke (as <javax.swing.JFrame> frame) 'setJMenuBar menu-bar)
(invoke (as <java.awt.Container> menu-bar) 'add m-menu)
(invoke (as <java.awt.Container> m-menu) 'add m-menu-item)
(invoke m-menu-item 'add-action-listener
        (object (<java.awt.event.ActionListener>)
          ((action-performed e :: <java.awt.event.ActionEvent>) :: <void>
           (let ((the-file (get-file-to-open)))
                         (format #t "file: ~a~%~!" the-file)))))
(invoke frame 'pack)
(invoke (as <java.awt.Component> frame) 'setVisible #t)

(define (get-file-to-open)
  (let* ((fchooser (<javax.swing.JFileChooser>))(local-frame
(<javax.swing.JFrame>))
         (returnVal (invoke fchooser 'showOpenDialog local-frame)))
    (if (= returnVal <javax.swing.JFileChooser>:APPROVE_OPTION)
        (invoke fchooser 'getSelectedFile)
        #f)))

Any pointers?

thanks!
Alex