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.36.2.2 -r1.36.2.3
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	14 Jun 2004 17:55:03 -0000	1.36.2.2
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	12 May 2005 11:44:36 -0000	1.36.2.3
@@ -1142,7 +1142,6 @@
     Unlike it's sister proc, <a href="/api-doc/proc-view?proc=util_expand_entities"><code>util_expand_entities</code></a>,
     it also expands numeric entities (#999 or #xff style).
 
-    
     @author Lars Pind (lars@pinds.com)
     @creation-date October 17, 2000
 } {
@@ -1158,7 +1157,7 @@
 	    # {
 		switch -regexp -- [string index $html [expr $i+2]] {
 		    [xX] {
-			regexp -indices -start [expr $i+3] {[0-9a-eA-E]*} $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"]]