Index: openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl	21 Dec 2017 20:47:48 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl	3 Sep 2024 15:37:34 -0000	1.5
@@ -14,10 +14,10 @@
     TclTraceSaveNsReturn   0  {trace add execution ::ns_return  enter {::tcltrace::before-ns_return}}
 } {
     if {[::parameter::get_from_package_key \
-	     -package_key acs-tcl \
-	     -parameter $parameter \
-	     -default $default] ne $default} {
-	append trace \n$cmd 
+             -package_key acs-tcl \
+             -parameter $parameter \
+             -default $default] ne $default} {
+        append trace \n$cmd
     }
 }
 
@@ -28,7 +28,11 @@
 #
 set traced_cmds {}
 #set traced_cmds {::nsv_get}
+#set traced_cmds {::ns_mutex} ;# help to spot creating of unnamed mutexes
 #set traced_cmds {::ns_setcookie ::ns_getcookie ::ns_deletecookie}
+#set traced_cmds {::ns_return ::ns_returnnotfound ::ns_returnfile ::ns_returnmoved}
+#set traced_cmds [lsort [info commands ::ns_return*]]
+#set traced_cmds {::ns_set}
 foreach cmd $traced_cmds {
     append trace "\ntrace add execution $cmd  enter {::tcltrace::before}"
 }