--- a/String.st	Tue Feb 21 19:04:17 2006 +0100
+++ b/String.st	Tue Feb 21 20:07:46 2006 +0100
@@ -526,6 +526,18 @@
     "Modified: 23.4.1996 / 16:00:38 / cg"
 ! !
 
+!String methodsFor:'Compatibility-VW5.4'!
+
+asGUID
+    "return self as a UUID"
+
+    ^ self asUUID
+
+    "
+     '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}' asGUID
+    "
+! !
+
 !String methodsFor:'accessing'!
 
 at:index
@@ -1797,6 +1809,16 @@
     "
 !
 
+asUUID
+    "return self as a UUID"
+
+    ^ UUID fromString:self
+
+    "
+     '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}' asUUID
+    "
+!
+
 literalArrayEncoding
     "encode myself as an array literal, from which a copy of the receiver
      can be reconstructed with #decodeAsLiteralArray."
@@ -3432,5 +3454,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.229 2005-07-13 08:42:50 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.230 2006-02-21 19:07:46 cg Exp $'
 ! !