--- a/WriteStream.st	Wed Sep 28 16:31:24 2011 +0200
+++ b/WriteStream.st	Wed Sep 28 16:32:19 2011 +0200
@@ -529,13 +529,15 @@
 nextPutAllUnicode:aString
     "normal streams can not handle multi-byte characters, so convert them to utf8"
 
-    (collection isString and:[collection bitsPerCharacter == 8]) ifTrue:[
+    (collection isString and:[collection bitsPerCharacter >= 8]) ifTrue:[
         aString do:[:eachCharacter|
             self nextPutUtf8:eachCharacter.
         ].
     ] ifFalse:[
         self nextPutAll:aString
     ].
+
+    "Modified: / 28-09-2011 / 16:15:52 / cg"
 !
 
 nextPutByte:anObject
@@ -628,9 +630,9 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.72 2011-09-05 05:07:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.73 2011-09-28 14:32:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.72 2011-09-05 05:07:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.73 2011-09-28 14:32:19 cg Exp $'
 ! !