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.36.2.1 -r1.36.2.2
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 Apr 2004 22:06:22 -0000	1.36.2.1
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	14 Jun 2004 17:55:03 -0000	1.36.2.2
@@ -561,7 +561,7 @@
     # We maintain counter is so that we don't accidentally enter an infinite loop
     set count 0
     while { $i < [string length $html] && ![string equal [string index $html $i] {>}] } {
-	if { [incr count] > 100 } {
+	if { [incr count] > 1000 } {
 	    error "There appears to be a programming bug in ad_parse_html_attributes_upvar: We've entered an infinite loop."
 	}
 	if { [string equal [string range $html $i [expr { $i + 1 }]] "/>"] } {
@@ -790,7 +790,7 @@
 	
 	set count 0
 	while 1 {
-	    if { [incr count] > 100 } {
+	    if { [incr count] > 1000 } {
 		error "There appears to be a programming bug in ad_html_to_text: We've entered an infinite loop."
 	    }
 	    # Find the positions of the first quote, apostrophe and greater-than sign.