--- a/ExternalStream.st	Wed Jan 16 15:08:50 2013 +0100
+++ b/ExternalStream.st	Wed Jan 16 15:09:53 2013 +0100
@@ -5701,16 +5701,35 @@
 %}.
     lastErrorNumber notNil ifTrue:[self writeError. ^ self].
     ^ super nextPutAll:aCollection startingAt:start to:stop
+!
+
+nextPutAllUnicode:aString
+    "normal streams can not handle multi-byte characters, so convert them to utf8.
+     This is needed, so that you can do ('something' asUnicode16String errorPrintCR)"
+
+    aString do:[:eachCharacter|
+        self nextPutUtf8:eachCharacter.
+    ].
+
+    "
+        'Bönnigheim' asUnicode16String errorPrintCR
+    "
+!
+
+nextPutUnicode:aCharacter
+    "normal streams can not handle multi-byte characters, so convert them to utf8"
+
+    self nextPutUtf8:aCharacter.
 ! !
 
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.355 2013-01-10 11:43:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.356 2013-01-16 14:09:53 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.355 2013-01-10 11:43:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.356 2013-01-16 14:09:53 stefan Exp $'
 ! !