diff --git a/src/c/threads.d b/src/c/threads.d
index 2406f0881..cacd68394 100644
--- a/src/c/threads.d
+++ b/src/c/threads.d
@@ -860,7 +860,6 @@ init_threads(cl_env_ptr env)
 	cl_object process;
 	pthread_t main_thread;
 
-        cl_core.global_lock = ecl_make_lock(@'si::package-lock', 0);
 	cl_core.processes = OBJNULL;
 
 	/* We have to set the environment before any allocation takes place,
@@ -898,5 +897,6 @@ init_threads(cl_env_ptr env)
 
 	env->own_process = process;
 
+        cl_core.global_lock = ecl_make_lock(@'si::package-lock', 0);
 	cl_core.processes = ecl_list1(process);
 }