--- a/UUID.st	Fri Jul 14 19:29:49 2006 +0200
+++ b/UUID.st	Mon Jul 17 11:50:33 2006 +0200
@@ -266,14 +266,17 @@
 
 getDtssUtcTime
     "return the DTSS based time in 100 nsec intervals
-     DTSS UTC base time is October 15, 1582 (the start of the Gregorian Calendar).
-     Unix base time is January 1, 1970.
-     The difference between both is: 122192928000000000"
+     DTSS UTC base time is October 15, 1582 (the start of the Gregorian Calendar)."
+
+     "Unix base time is January 1, 1970.
+      The difference between both is: 122192928000000000"
 
-    |t|
+"   
+        (Timestamp epoch asDate subtractDate:(Date day:15 month:10 year:1582))
+        *  (24 * 60 * 60)
+"
 
-    t := Timestamp now.
-    ^ (t getMilliseconds + (t utcOffset * 1000) + 12219292800000) * 10000.
+    ^ (Timestamp now getMilliseconds + 12219292800000) * 10000.
 !
 
 getValidMACAddress
@@ -540,7 +543,7 @@
 !UUID class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.21 2006-03-14 21:04:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UUID.st,v 1.22 2006-07-17 09:50:33 stefan Exp $'
 ! !
 
 UUID initialize!