--- a/ChangesBrowser.st	Tue Mar 16 11:54:28 2004 +0100
+++ b/ChangesBrowser.st	Tue Mar 16 11:57:52 2004 +0100
@@ -2986,7 +2986,7 @@
         ^ false
     ].
     outStream nextPutLine:'"{ Encoding: utf8 }" !!'.
-    outStream := EncodedStream stream:outStream encoder:(CharacterEncoder encoderFor:#utf8).
+    outStream := EncodedStream stream:outStream encoder:(CharacterEncoder encoderForUTF8).
 
     self withCursor:(Cursor write) do:[
         |excla sawExcla done first chunk
@@ -5565,5 +5565,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.316 2004-03-15 10:12:16 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.317 2004-03-16 10:57:52 cg Exp $'
 ! !