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.37 -r1.38
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	20 Apr 2004 21:13:04 -0000	1.37
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	14 May 2004 10:54:27 -0000	1.38
@@ -562,7 +562,7 @@
     set count 0
     while { $i < [string length $html] && ![string equal [string index $html $i] {>}] } {
 	if { [incr count] > 100 } {
-	    error "There appears to be a programming bug in ad_parse_html_attributes_upvar: We've entered an infinite loop."
+	    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]]"
 	}
 	if { [string equal [string range $html $i [expr { $i + 1 }]] "/>"] } {
 	    # This is an XML-style tag ending: <... />