Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -r1.189.2.20 -r1.189.2.21 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 1 Jul 2019 14:47:06 -0000 1.189.2.20 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 22 Jul 2019 18:58:23 -0000 1.189.2.21 @@ -4009,7 +4009,7 @@ if {[string length $v] > 100} { set v "[string range $v 0 100]..." } - append info "\n $k:\t$v" + append info "\n $k: $v" } } else { set ct [ns_set iget [ns_conn headers] content-type] @@ -4028,7 +4028,7 @@ if {$with_headers_p} { append info \n foreach {k v} [ns_set array [ns_conn headers]] { - append info "\n $k:\t$v" + append info "\n $k: $v" } } } @@ -4071,7 +4071,11 @@ append request " " \ [util::request_info -with_headers=$with_headers] - ns_log $level "${message}\n[uplevel ad_get_tcl_call_stack]${request}\n" + set prefix "" + foreach line [split "${message}\n[uplevel ad_get_tcl_call_stack]${request}\n" \n] { + ns_log $level "$prefix$line" + set prefix "." + } } ad_proc -public util::var_subst_quotehtml {