diff --git a/pl/threads.yap b/pl/threads.yap
index 3a924038b..456f8b371 100644
--- a/pl/threads.yap
+++ b/pl/threads.yap
@@ -53,6 +53,8 @@ volatile(P) :-
 	'$new_mutex'(Id),
 	assert_static(prolog:'$with_mutex_mutex'(Id)).
 
+'$reinit_thread0' :-
+	'$no_threads', !.
 '$reinit_thread0' :-
 	'$create_thread_mq'(0),
 %	abolish(prolog:'$with_mutex_mutex',1),