From 07b1552d2e5c5e1f8b2975e8cb1dff82166309f9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 11 Apr 2008 21:37:18 -0500
Subject: [PATCH] fix bug with long environment variables

---
 vm/os-windows.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vm/os-windows.c b/vm/os-windows.c
index 136168807a..59c14d98f5 100755
--- a/vm/os-windows.c
+++ b/vm/os-windows.c
@@ -218,9 +218,9 @@ void sleep_millis(DWORD msec)
 DEFINE_PRIMITIVE(os_env)
 {
 	F_CHAR *key = unbox_u16_string();
-	F_CHAR *value = safe_malloc(MAX_UNICODE_PATH);
+	F_CHAR *value = safe_malloc(MAX_UNICODE_PATH * 2);
 	int ret;
-	ret = GetEnvironmentVariable(key, value, MAX_UNICODE_PATH);
+	ret = GetEnvironmentVariable(key, value, MAX_UNICODE_PATH * 2);
 	if(ret == 0)
 		dpush(F);
 	else