--- a/CharacterEncoder.st	Tue Jan 17 13:18:40 2006 +0100
+++ b/CharacterEncoder.st	Mon Jan 23 12:38:52 2006 +0100
@@ -1006,6 +1006,9 @@
         ].
 
     lcBuffer := buffer asLowercase.
+    (buffer startsWith:#[16rEF 16rBB 16rBF] asString) ifTrue:[
+        ^ 'utf-8'
+    ].
 
     #( 'charset' 'encoding' ) do:[:keyWord |
         |encoderOrNil idx s w enc|
@@ -1508,7 +1511,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.93 2005-07-07 17:36:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.94 2006-01-23 11:38:52 cg Exp $'
 ! !
 
 CharacterEncoder initialize!