From d71832f20ebeb05bf6f5998f8a840d65977aade2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 27 Aug 2015 14:34:49 -0600
Subject: [PATCH] another MSVC MzCOM repair

Missed a line that was meant to be included with
commit a98947e81e.
---
 racket/src/mzcom/mzobj.cxx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/racket/src/mzcom/mzobj.cxx b/racket/src/mzcom/mzobj.cxx
index 698988656f..e928f293d5 100644
--- a/racket/src/mzcom/mzobj.cxx
+++ b/racket/src/mzcom/mzobj.cxx
@@ -308,6 +308,7 @@ static int record_at_exit(Scheme_At_Exit_Callback_Proc p) XFORM_SKIP_PROC
   return 0;
 }
 
+#define NO_TLS_INDEX_FOR_WIN_TLS 1
 #include "../racket/win_tls.inc"
 
 static unsigned WINAPI evalLoop(void *args) XFORM_SKIP_PROC {