--- a/UUID.st	Mon Dec 08 12:45:41 2008 +0100
+++ b/UUID.st	Mon Dec 08 13:13:05 2008 +0100
@@ -616,12 +616,25 @@
     aStream nextPutAll:(tmpStream contents asLowercase).
 
     "Modified: / 10-10-2007 / 23:19:03 / cg"
+!
+
+storeOn:aStream
+    aStream 
+        nextPutAll:'('; 
+        nextPutAll:self class name; 
+        nextPutAll:' fromString:''';
+        nextPutAll:self printString;
+        nextPutAll:''')'.
+
+    "
+     Object readFrom:(UUID genUUID storeString) 
+    "
 ! !
 
 !UUID class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.27 2008-07-09 12:51:55 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.28 2008-12-08 12:13:05 sr Exp $'
 ! !
 
 UUID initialize!