--- a/UUID.st	Thu Mar 15 22:52:37 2018 +0100
+++ b/UUID.st	Tue Mar 20 16:35:38 2018 +0100
@@ -881,6 +881,24 @@
     "Modified: / 10-10-2007 / 23:19:03 / cg"
 !
 
+printString 
+    "return a printed representation of the receiver for printing.
+     Uses the basic print mechanism of the underlying technology."
+
+    |s|
+
+    "Speed: we know, that the printed representation of a UUID has exactly 36 chars"
+    s := WriteStream on:(String new:36).
+    self printOn:s.
+    ^ s contents.
+
+    "
+        UUID genUUID printString
+    "
+
+    "Created: / 20-03-2018 / 16:08:10 / stefan"
+!
+
 storeOn:aStream
     aStream 
         nextPut:$(;