Index: openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl	10 Jan 2007 21:22:12 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl	7 Aug 2017 23:48:00 -0000	1.4
@@ -21,16 +21,16 @@
     @see ad_get_tcl_call_stack
 } {
     uplevel {
-        global errorInfo
-        if {$errorInfo ne ""} { 
-            set callStack [list $errorInfo "invoked from within"]
-        } else { 
+        if {$::errorInfo ne ""} {
+            set callStack [list $::errorInfo "invoked from within"]
+        } else {
             set callStack {}
         }
-        for {set i [info level]} {$i > 0} {set i [expr {$i - 1}]} {
+        for {set i [info level]} {$i > 0} {incr i -1} {
             set call [info level $i]
             if {[string length $call] > 160} {
-                set call "[string range $call 0 150]..."            }
+                set call "[string range $call 0 150]..."
+            }
             regsub -all {\n} $call {\\n} call
             lappend callStack "   $call"
             if {$i > 1} {
@@ -46,3 +46,9 @@
 } {
     ns_log Error [ad_print_stack_trace]
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: