diff --git a/thnix.f90 b/thnix.f90
index b9f115b95..ff457b852 100644
--- a/thnix.f90
+++ b/thnix.f90
@@ -2,7 +2,7 @@ subroutine cs_init
   character*12 csub0
   integer*8 mtx
   common/mtxcom/mtx,ltrace,mtxstate,csub0
-  ltrace=3
+  ltrace=0
   mtxstate=0
   csub0='**unlocked**'
   call fthread_mutex_init(mtx)