From 0ef5a01c9b2fa6bfccd20bdd58eca5e31cfe1ecc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 25 Dec 2010 08:45:30 -0700
Subject: [PATCH] win32: minor repair to single-instance check

---
 collects/mred/private/wx/win32/window.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/wx/win32/window.rkt b/collects/mred/private/wx/win32/window.rkt
index 35b59e24e2..50eb6483ab 100644
--- a/collects/mred/private/wx/win32/window.rkt
+++ b/collects/mred/private/wx/win32/window.rkt
@@ -668,8 +668,8 @@
          [guid-len (bytes-length GRACKET_GUID)]
          [data-len (COPYDATASTRUCT-cbData cd)])
     (when (and (data-len
-                . > . 
-                (+ guid-len (ctype-sizeof _DWORD)))
+                . >= . 
+                (+ guid-len 4 (ctype-sizeof _DWORD)))
                (bytes=? GRACKET_GUID
                         (scheme_make_sized_byte_string data
                                                        guid-len