--- a/Scanner.st	Mon Feb 17 11:29:00 2014 +0100
+++ b/Scanner.st	Mon Feb 17 15:12:40 2014 +0100
@@ -3113,7 +3113,11 @@
             nextChar notNil ifTrue:[
                 nextChar codePoint > 255 ifTrue:[
                     string bitsPerCharacter < nextChar bitsPerCharacter ifTrue:[
-                        string := string asUnicodeString.
+                        nextChar codePoint > 16rFFFF ifTrue:[
+                            string := string asUnicode32String
+                        ] ifFalse:[
+                            string := string asUnicode16String.
+                        ].
                     ].
                 ].
                 string at:index put:nextChar.
@@ -3663,11 +3667,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.308 2014-02-14 12:57:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.309 2014-02-17 14:12:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.308 2014-02-14 12:57:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.309 2014-02-17 14:12:40 cg Exp $'
 ! !