From b88dcb86ab3ab6a063804d691239829aabc4ba33 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Sun, 10 Mar 2013 16:44:46 -0500
Subject: [PATCH] fix tid lookup

---
 library/dialect/swi/fli/swi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/dialect/swi/fli/swi.c b/library/dialect/swi/fli/swi.c
index 1cbc22477..77e3f75ff 100755
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@@ -2488,7 +2488,7 @@ pl_thread_self(void)
 #if THREADS
   if (pthread_getspecific(Yap_yaamregs_key) == NULL)
     return -1;
-  return worker_id+1;
+  return worker_id;
 #else
   return -2;
 #endif