Artifact
db7d9d231027778e1a72537d7c59310e9629d33d:
Attachment "init.patch" to
ticket [842038ffff]
added by
trott13
2003-11-14 18:26:41.
--- init.tcl.orig 2003-04-25 15:28:29.000000000 +0200
+++ init.tcl 2003-11-14 12:50:12.000000000 +0100
@@ -220,8 +220,8 @@
# construct the stack trace.
#
set cinfo $args
- if {[string length $cinfo] > 150} {
- set cinfo "[string range $cinfo 0 149]..."
+ if {[string length $cinfo] > 149} {
+ set cinfo "[string range $cinfo 0 148]..."
}
append cinfo "\"\n (\"uplevel\" body line 1)"
append cinfo "\n invoked from within"