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.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	1 Jan 2008 23:30:03 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/http-client-procs.tcl	25 Mar 2008 13:17:57 -0000	1.8
@@ -154,7 +154,7 @@
     #
     # for text, use translation with optional encodings, else set translation binary
     #
-    if {[string match text/* $content_type]} {
+    if {[string match "text/*" $content_type]} {
       if {[regexp {charset=([^ ]+)$} $content_type _ encoding]} {
 	fconfigure [my set S] -translation $text_translation -encoding [string tolower $encoding]
       } else {