--- a/RandomGenerator.st	Fri Mar 26 00:18:37 2010 +0100
+++ b/RandomGenerator.st	Tue Mar 30 14:32:10 2010 +0200
@@ -93,7 +93,7 @@
 
     SharedGenerator notNil ifTrue:[
         "each time, we do an new, add some entropy to the SharedGenerator"
-        SharedGenerator addEntropy:OperatingSystem getMillisecondTime.
+        SharedGenerator addEntropy:OperatingSystem getMicrosecondTime.
         ^ SharedGenerator.
     ].
 
@@ -355,11 +355,11 @@
 !RandomGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.5 2010-03-12 11:59:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.6 2010-03-30 12:32:10 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.5 2010-03-12 11:59:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.6 2010-03-30 12:32:10 stefan Exp $'
 ! !
 
 RandomGenerator initialize!