diff --git a/src/c/threads/process.d b/src/c/threads/process.d
index df92d835a..03474df60 100755
--- a/src/c/threads/process.d
+++ b/src/c/threads/process.d
@@ -363,7 +363,9 @@ ecl_import_current_thread(cl_object name, cl_object bindings)
     cl_index i, size;
     for (i = 0, size = processes->vector.fillp; i < size; i++) {
       cl_object p = processes->vector.self.t[i];
-      if (!Null(p) && p->process.thread == current)
+      if (!Null(p)
+          &&
+          GetThreadId(p->process.thread) == GetThreadId(current))
         return 0;
     }
   }