Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.65.6.6 -r1.65.6.7
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	16 Sep 2013 10:03:21 -0000	1.65.6.6
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	29 Sep 2013 20:24:03 -0000	1.65.6.7
@@ -646,7 +646,7 @@
     set count 0
     while { $i < [string length $html] && ![string equal [string index $html $i] {>}] } {
         if { [incr count] > 3000 } {
-            error "There appears to be a programming bug in ad_parse_html_attributes_upvar: We've entered an infinite loop. We are here: \noffset $i: [string range $html $i [expr {$i + 60}]]"
+            error "There appears to be a programming bug in ad_parse_html_attributes_upvar: We've entered an infinite loop. We are here: \noffset $i: [string range $html $i $i+60]"
         }
         if { [string range $html $i $i+1] eq "/>" } {
             # This is an XML-style tag ending: <... />