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
 }