Index: openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	19 Dec 2007 21:06:58 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	1 Jan 2008 23:30:03 -0000	1.7
@@ -156,7 +156,7 @@
     #
     if {[string match text/* $content_type]} {
       if {[regexp {charset=([^ ]+)$} $content_type _ encoding]} {
-	fconfigure [my set S] -translation $text_translation -encoding $encoding
+	fconfigure [my set S] -translation $text_translation -encoding [string tolower $encoding]
       } else {
 	fconfigure [my set S] -translation $text_translation
       }