--- a/Unicode32String.st	Tue Sep 27 11:42:50 2011 +0200
+++ b/Unicode32String.st	Wed Sep 28 16:31:22 2011 +0200
@@ -122,28 +122,35 @@
 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:18:43 / cg"
 !
 
 storeString
     "return a String for storing myself"
 
-    ^ self basicStoreString.
+"/    ^ self basicStoreString.
+    ^ (self utf8Encoded storeString),' utf8Decoded'.
+
+    "Modified: / 28-09-2011 / 16:18:55 / cg"
 ! !
 
 !Unicode32String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Unicode32String.st,v 1.9 2008-11-06 10:59:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Unicode32String.st,v 1.10 2011-09-28 14:31:22 cg Exp $'
 ! !
 
 Unicode32String initialize!