From d6f4fa8d37e4ad522101fbcb55384202ee885f2d Mon Sep 17 00:00:00 2001
From: Samium Gromoff <deepfire@gemini.deep>
Date: Tue, 14 Apr 2009 00:58:05 +0400
Subject: [PATCH] Must allocate environments via GC, otherwise ecl_mark_env ->
 GC_set_mark_bit fails on us.

o  This restores buildability on win32/MSVC.
---
 src/c/main.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/main.d b/src/c/main.d
index 67a8d42f7..70bcda06c 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -298,7 +298,7 @@ _ecl_alloc_env()
 		/* We have not set up any environment. Hence, we cannot call ecl_alloc()
 		 * because it will need to stop interrupts and currently we rely on
 		 * the environment for that */
-		output = &first_env;
+		output = GC_MALLOC_IGNORE_OFF_PAGE(sizeof(*output));
 	} else {
 		output = ecl_alloc(sizeof(*output));
 	}