--- a/FourByteString.st	Thu Jul 02 06:47:06 2015 +0200
+++ b/FourByteString.st	Tue Jul 21 06:55:26 2015 +0200
@@ -115,7 +115,7 @@
 utf8Encoded
     "Return my UTF-8 representation as a new String"
 
-    ^ self basicUtf8Encoded.
+    ^ CharacterEncoderImplementations::ISO10646_to_UTF8 new encodeString:self
 !
 
 utf8EncodedOn:aStream
@@ -140,7 +140,7 @@
 !FourByteString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FourByteString.st,v 1.4 2015-03-14 21:29:24 stefan Exp $'
+    ^ '$Header$'
 ! !
 
 

--- a/UUID.st	Thu Jul 02 06:47:06 2015 +0200
+++ b/UUID.st	Tue Jul 21 06:55:26 2015 +0200
@@ -551,6 +551,14 @@
     ^ bytes.
 !
 
+asString
+    ^ self printString
+
+    "
+        self genUUID asString
+    "
+!
+
 asUUID
     ^ self
 !
@@ -844,6 +852,7 @@
 
     "
      UUID genUUID printString 
+     UUID genUUID asString 
     "
 
 "/    d := self unsignedLongAt:1 bigEndian:true.
@@ -911,11 +920,11 @@
 !UUID class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.49 2015-05-07 22:37:29 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.49 2015-05-07 22:37:29 cg Exp $'
+    ^ '$Header$'
 ! !