Message-box in multi-monitor setup shows in primary monitor instead of parent.

In a multi-monitor setup (There are physically more than one screen connected to a PC) showing a message-box outside of primary monitor shows the message box at the edge of the primary monitor instead of at the center of its parent.

I am on Windows 7 if that matters.

Here is the minimum code needed to replicate this:

#lang racket

(require racket/gui)

(define frame (new frame%
                   [label ""]
                   [min-width 200]))

(void (new button%
           [parent frame]
           [label "Show Message Box"]
           [callback (lambda (button event)
                       (message-box "Message Box" "Message" frame))]))

(send frame show #t)

Here is what happens on the primary monitor:

Here is what happens on the second monitor:

Start by running the minimal Racket GUI example from the issue on Windows 7 with multiple monitors, placing the parent frame on the secondary monitor. Trace how message-box uses its parent when positioning the dialog. Done means the message box is centered on its parent monitor rather than appearing at the edge of the primary monitor.