Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v diff -u -r1.42.2.4 -r1.42.2.5 --- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 30 Dec 2015 13:01:09 -0000 1.42.2.4 +++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 25 Mar 2016 10:01:26 -0000 1.42.2.5 @@ -50,7 +50,17 @@ proc ad_get_tcl_call_stack { { level -2 }} { set stack "" for { set x [expr {[info level] + $level}] } { $x > 0 } { incr x -1 } { - append stack " called from [info level $x]\n" + set info [info level $x] + regsub -all \n $info {\\n} info + if {[string length $info]>200} { + set arglist "" + foreach arg $info { + if {[string length $arg]>40} {set arg [string range $arg 0 40]...} + lappend arglist $arg + } + set info $arglist + } + append stack " called from $info\n" } return $stack } @@ -271,6 +281,7 @@ set arg_list [lindex $args $i+1] if { $n_args_remaining == 3 } { # No doc string provided. + #ns_log notice "missing doc string for ad_proc $proc_name ([info script])" array set doc_elements [list] set doc_elements(main) "" } else { 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.140.2.25 -r1.140.2.26 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 3 Mar 2016 08:16:38 -0000 1.140.2.25 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 25 Mar 2016 10:01:26 -0000 1.140.2.26 @@ -2723,7 +2723,17 @@ } { set stack "" for { set x [expr {[info level] + $level}] } { $x > 0 } { incr x -1 } { - append stack " called from [info level $x]\n" + set info [info level $x] + regsub -all \n $info {\\n} info + if {[string length $info]>200} { + set arglist "" + foreach arg $info { + if {[string length $arg]>40} {set arg [string range $arg 0 40]...} + lappend arglist $arg + } + set info $arglist + } + append stack " called from $info\n" } return $stack }