From 942e37bc8d99bca9d255b83fb3e334af75c544af Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Wed, 20 Jan 2010 22:54:23 +0100
Subject: [PATCH] Do not attempt interrupting a process while it is being
 initialized.

---
 src/c/threads.d | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/c/threads.d b/src/c/threads.d
index be8a4d3df..2349a40d5 100644
--- a/src/c/threads.d
+++ b/src/c/threads.d
@@ -141,6 +141,7 @@ thread_entry_point(void *arg)
         cl_object process = (cl_object)arg;
 	cl_env_ptr env;
 
+        ecl_set_process_env(NULL);
         process->process.active = 2;
 #ifndef ECL_WINDOWS_THREADS
 	pthread_cleanup_push(thread_cleanup, (void *)process);