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 -N -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl	21 Apr 2017 14:22:46 -0000	1.1.2.4
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl	31 May 2017 11:48:36 -0000	1.1.2.5
@@ -24,7 +24,12 @@
 #
 # Optionally add more traces here
 #
-#append trace "\ntrace add execution ::nsv_get    enter {::tcltrace::before}"
+set traced_cmds {}
+#set traced_cmds {::nsv_get}
+#set traced_cmds {::ns_setcookie ::ns_getcookie ::ns_deletecookie}
+foreach cmd $traced_cmds {
+    append trace "\ntrace add execution $cmd  enter {::tcltrace::before}"
+}
 
 if {$trace ne ""} {
     ns_ictl trace create $trace