--- 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"
