--- a/CharacterEncoder.st	Thu Feb 16 20:38:45 2017 +0100
+++ b/CharacterEncoder.st	Thu Feb 16 20:41:46 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -1386,6 +1388,16 @@
     self subclassResponsibility
 !
 
+encodeCharacter:aUnicodeCharacter on:aStream
+    "given a character in unicode, encode it onto aStream.
+     Subclasses can redefine this to avoid allocating many new string instances."
+
+    aStream nextPutAll:(self encodeString:aUnicodeCharacter asString).
+
+    "Created: / 16-02-2017 / 16:18:33 / stefan"
+    "Modified (comment): / 16-02-2017 / 20:41:18 / stefan"
+!
+
 encodeString:aUnicodeString
     "given a string in unicode, return a string in my encoding for it"