--- a/Unicode16String.st	Wed Sep 28 15:56:45 2011 +0200
+++ b/Unicode16String.st	Wed Sep 28 16:31:24 2011 +0200
@@ -123,28 +123,37 @@
 storeOn:aStream
     "put the storeString of myself on aStream"
 
-    aStream nextPut:$'.
-    (self includes:$') ifTrue:[
-        self do:[:thisChar |
-            (thisChar == $') ifTrue:[aStream nextPut:thisChar].
-            aStream nextPutUnicode:thisChar
-        ]
-    ] ifFalse:[
-        aStream nextPutAllUnicode:self
-    ].
-    aStream nextPut:$'
+    (self utf8Encoded storeOn:aStream).
+    aStream nextPutAll:' utf8Decoded'.
+
+"/    aStream nextPut:$'.
+"/    (self includes:$') ifTrue:[
+"/        self do:[:thisChar |
+"/            (thisChar == $') ifTrue:[aStream nextPut:thisChar].
+"/            aStream nextPutUnicode:thisChar
+"/        ]
+"/    ] ifFalse:[
+"/        aStream nextPutAllUnicode:self
+"/    ].
+"/    aStream nextPut:$'
+
+    "Modified: / 28-09-2011 / 16:17:38 / cg"
 !
 
 storeString
     "return a String for storing myself"
 
-    ^ self basicStoreString.
+"/    ^ self basicStoreString.
+    ^ (self utf8Encoded storeString),' utf8Decoded'.
+
+    "Modified: / 28-09-2011 / 16:18:07 / cg"
 ! !
 
+
 !Unicode16String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.12 2008-11-06 11:00:19 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.13 2011-09-28 14:31:24 cg Exp $'
 ! !
 
 Unicode16String initialize!