--- a/CharacterEncoderImplementations__ISO10646_to_UTF16LE.st	Tue May 28 14:48:39 2019 +0200
+++ b/CharacterEncoderImplementations__ISO10646_to_UTF16LE.st	Tue May 28 14:50:26 2019 +0200
@@ -89,8 +89,8 @@
 
     |stream size "{ Class:SmallInteger }"|
 
-    stream := WriteStream on:(ByteArray uninitializedNew:aUnicodeString size * 2).
     size := aUnicodeString size.
+    stream := WriteStream on:(ByteArray uninitializedNew:size * 2).
 
     1 to:size do:[:idx |
         stream nextPutUtf16Bytes:(aUnicodeString at:idx) MSB:false.
@@ -99,6 +99,7 @@
     ^ stream contents
 
     "Created: / 16-01-2018 / 19:45:15 / stefan"
+    "Modified: / 28-05-2019 / 13:50:22 / Stefan Vogel"
 !
 
 encodeString:aUnicodeString on:aStream