Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	1 Nov 2018 10:37:43 -0000	1.19
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	20 Jan 2019 15:21:17 -0000	1.20
@@ -142,7 +142,7 @@
       [list set ::xotcl::currentScript [info script]] \n\
       [list set ::xotcl::currentThread [self]] \n\
       $cmd
-  set :mutex [ns_mutex create]
+  set :mutex [ns_mutex create ns_mutex[self]]
   ns_log notice "mutex ${:mutex} created"
   next
 }
@@ -175,7 +175,7 @@
       :log "thread terminated"
       nsv_unset [self class] [self]
       ns_mutex destroy ${:mutex}
-      :log "+++ mutex ${:mutex} destroyed"
+      ns_log notice "mutex ${:mutex} destroyed"
     }
   }
   next