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.50 -r1.51
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	10 Jan 2007 21:22:12 -0000	1.50
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	16 Jul 2007 00:47:25 -0000	1.51
@@ -1232,7 +1232,11 @@
 		    }
 		    [0-9] {
 			regexp -indices -start [expr {$i+2}] {[0-9]*} $html dec_idx
-			set dec [string range $html [lindex $dec_idx 0] [lindex $dec_idx 1]]
+                        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 causing octal interpretation, causing errors on e.g. &
+			set dec [string trimleft $dec 0]
+                        if {$dec eq ""} {set dec 0}
 			set html [string replace $html $i [lindex $dec_idx 1] \
 				[format "%c" $dec]]
 			set match_p 1