From 4da67331948297209769fa9de0cee50a6a78c9df Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 17 Oct 2012 17:25:35 +0100
Subject: [PATCH] fix bad initialization of mqs

---
 pl/threads.yap | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/pl/threads.yap b/pl/threads.yap
index 456f8b371..c73991a73 100644
--- a/pl/threads.yap
+++ b/pl/threads.yap
@@ -616,6 +616,10 @@ message_queue_create(Id) :-
 	fail.
 '$do_msg_queue_create'(_).
 
+'$create_thread_mq'(TId) :-
+	recorded('$queue',q(TId,_,_,_,_), R),
+	erase(R),
+	fail.
 '$create_thread_mq'(TId) :-
 	\+ recorded('$queue',q(TId,_,_,_,_), _),
 	'$new_mutex'(Mutex),