--- a/UUID.st	Thu Aug 03 15:05:59 2017 +0200
+++ b/UUID.st	Mon Aug 07 10:48:11 2017 +0200
@@ -437,9 +437,10 @@
         * 10        
     "
 
-    ^ (Timestamp now getMilliseconds + 12219292800000) * 10000.
+    ^ (OperatingSystem getMicrosecondTime + 12219292800000000) * 10 
+    "/ ^ (Timestamp now getMilliseconds + 12219292800000) * 10000   .
 
-    "Modified (comment): / 05-02-2017 / 22:39:25 / cg"
+    "Modified: / 05-08-2017 / 10:17:57 / cg"
 !
 
 getValidMACAddress
@@ -722,11 +723,12 @@
       1 to: 100 do:[ : el |
           Transcript show:el.
           Transcript show:': '.
-          Transcript showCR:(UUID new genTimestampUUID).
+          Transcript showCR:(UUID genTimestampUUID).
       ].
     "
 
     "Modified: / 26-12-2011 / 13:41:23 / cg"
+    "Modified (comment): / 05-08-2017 / 10:08:44 / cg"
 !
 
 genUUID:nameStringOrBytes inNameSpace:namespaceStringOrUUID