--- a/Stream.st	Fri Dec 14 11:09:22 2012 +0100
+++ b/Stream.st	Fri Dec 14 11:13:32 2012 +0100
@@ -194,7 +194,6 @@
     ^ ChunkSeparator
 ! !
 
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -1719,7 +1718,7 @@
 nextPutUtf8:aCharacter
     "append my UTF-8 representation to the argument, aStream.
      Up to 31 bits can be encoded in up to 6 bytes.
-     However, currently, characters are limited to 16 bits."
+     However, currently, characters are limited to 31 bits."
 
     |codePoint b1 b2 b3 b4 b5 v|
 
@@ -1775,6 +1774,7 @@
             s nextPutUtf8:$ü.
             s nextPutUtf8: (Character value:16r1fff).
             s nextPutUtf8: (Character value:16rffff).
+            s nextPutUtf8: (Character value:16r1ffffff).
             s nextPutUtf8: (Character value:16r800).
       ])
             asByteArray
@@ -3284,11 +3284,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.195 2012-10-25 22:19:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.196 2012-12-14 10:13:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.195 2012-10-25 22:19:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.196 2012-12-14 10:13:32 stefan Exp $'
 ! !
 
 Stream initialize!