--- a/RandomParkMiller.st	Wed Oct 01 17:17:12 2014 +0200
+++ b/RandomParkMiller.st	Wed Oct 01 17:17:14 2014 +0200
@@ -106,7 +106,7 @@
 initialize
     " Set a reasonable Park-Miller starting seed "
 
-    seed := 2345678901
+    seed := (Random randomSeed bitAnd:16rFFFFFFFF) "/ 2345678901
 !
 
 seed:anInteger 
@@ -137,11 +137,11 @@
 !RandomParkMiller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.7 2014-10-01 12:50:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.8 2014-10-01 15:17:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.7 2014-10-01 12:50:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.8 2014-10-01 15:17:14 cg Exp $'
 ! !