--- a/WriteStream.st	Fri Oct 28 08:45:38 2011 +0100
+++ b/WriteStream.st	Mon Oct 31 22:19:21 2011 +0000
@@ -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,13 +630,14 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Id: WriteStream.st 10700 2011-09-29 15:44:37Z vranyj1 $'
+    ^ '$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 '
 !
 
 version_SVN
-    ^ '$Id: WriteStream.st 10700 2011-09-29 15:44:37Z vranyj1 $'
+    ^ '$Id: WriteStream.st 10729 2011-10-31 22:19:21Z vranyj1 $'
 ! !
+