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
 }