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 -N -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]