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.2.2 -r1.4.2.3
--- openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl	6 Aug 2020 20:12:55 -0000	1.4.2.2
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-init.tcl	20 Aug 2020 05:22:28 -0000	1.4.2.3
@@ -29,7 +29,8 @@
 set traced_cmds {}
 #set traced_cmds {::nsv_get}
 #set traced_cmds {::ns_setcookie ::ns_getcookie ::ns_deletecookie}
-#set traced_cmds {::nsv_get ::ns_return ::ns_returnnotfound ::ns_returnfile ::ns_returnmoved}
+#set traced_cmds {::ns_return ::ns_returnnotfound ::ns_returnfile ::ns_returnmoved}
+#set traced_cmds [lsort [info commands ::ns_return*]]
 foreach cmd $traced_cmds {
     append trace "\ntrace add execution $cmd  enter {::tcltrace::before}"
 }
Index: openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl,v
diff -u -r1.4.2.4 -r1.4.2.5
--- openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	13 Jul 2020 12:02:33 -0000	1.4.2.4
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	20 Aug 2020 05:22:28 -0000	1.4.2.5
@@ -88,7 +88,15 @@
 
     } {
         set log_cmd [expr {$details_p ? "ad_log" : "ns_log"}]
-        $log_cmd notice "trace: $cmd"
+        set abbrev_cmd [lmap w $cmd {
+            regsub -all \n $w {\n} w
+            regsub -all \r $w {\r} w            
+            if {[string length $w] > 100} {
+                set w [string range $w 0 100]...
+            }
+            set w
+        }]
+        $log_cmd notice "trace: [join $abbrev_cmd { }]"
     }
    
 }