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.52 -r1.53
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	25 Sep 2007 15:22:38 -0000	1.52
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Sep 2007 08:02:51 -0000	1.53
@@ -1231,7 +1231,7 @@
 			set match_p 1
 		    }
 		    [0-9] {
-			regexp -indices -start [expr $i+2] {[0-9]*} $html dec_idx
+			regexp -indices -start [expr {$i+2}] {[0-9]*} $html dec_idx
 			set dec [string range $html [lindex $dec_idx 0] [lindex $dec_idx 1]]
                         # $dec might contain leading 0s. Since format evaluates $dec as expr
                         # leading 0s cause octal interpretation and therefore errors on e.g. &