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.45 -r1.46
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	12 May 2005 11:42:27 -0000	1.45
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	12 May 2005 11:45:18 -0000	1.46
@@ -1168,7 +1168,7 @@
 	    # {
 		switch -regexp -- [string index $html [expr $i+2]] {
 		    [xX] {
-			regexp -indices -start [expr $i+3] {[0-9a-fA-f]*} $html hex_idx
+			regexp -indices -start [expr $i+3] {[0-9a-fA-F]*} $html hex_idx
 			set hex [string range $html [lindex $hex_idx 0] [lindex $hex_idx 1]]
 			set html [string replace $html $i [lindex $hex_idx 1] \
 				[subst -nocommands -novariables "\\x$hex"]]