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.64 -r1.65
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 12 Jul 2009 01:08:31 -0000 1.64
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 11 Mar 2010 11:20:48 -0000 1.65
@@ -857,11 +857,11 @@
# - alpha or
# - a slash, and then alpha
# Otherwise, it's probably just a lone < character
- if { $i >= [expr $length-1] || \
- (![string is alpha [string index $html [expr $i + 1]]] && \
+ if { $i >= [expr {$length-1}] || \
+ (![string is alpha [string index $html [expr {$i + 1}]]] && \
[string index $html [expr {$i + 1}]] ne "!" && \
- (![string equal "/" [string index $html [expr $i + 1]]] || \
- ![string is alpha [string index $html [expr $i + 2]]])) } {
+ (![string equal "/" [string index $html [expr {$i + 1}]]] || \
+ ![string is alpha [string index $html [expr {$i + 2}]]])) } {
# Output the < and continue with next character
ad_html_to_text_put_text output "<"
set last_tag_end [incr i]