diff --git a/pl/threads.yap b/pl/threads.yap
index f00257dc2..cbb1a5cbe 100644
--- a/pl/threads.yap
+++ b/pl/threads.yap
@@ -364,7 +364,6 @@ thread_exit(Term) :-
 	fail.
 '$run_at_thread_exit'(Id0) :-
 	recorded('$thread_exit_hook',[Id0|Hook],R), erase(R),
-	open('/home/vsc/coutput.txt', append, W), writeln(hook:Hook), close(W),
 	catch(once(Hook),_,fail),
 	fail.
 '$run_at_thread_exit'(_).