--- a/RandomParkMiller.st	Tue Dec 16 23:39:51 2008 +0100
+++ b/RandomParkMiller.st	Tue Dec 16 23:40:21 2008 +0100
@@ -53,11 +53,11 @@
 !RandomParkMiller class methodsFor:'initialization'!
 
 initialize
-    PMa := 16807.
-    PMm := 2147483647.    " magic constant = 16807 "
-    PMq := 127773.        " magic constant = 2147483647 "
-    PMr := 2836.          " quotient (m quo: a) = 44488 "
-    PMmu1 := 4.65661E-10  " remainder (m \\ a). = 2836 "
+    PMa := 16807.         " magic constant "
+    PMm := 2147483647.    " magic constant "
+    PMq := 127773.        " quotient (m quo: a) = 44488 "
+    PMr := 2836.          " remainder (m \\ a). = 2836 "
+    PMmu1 := 4.65661E-10  
 ! !
 
 !RandomParkMiller class methodsFor:'instance creation'!
@@ -98,7 +98,8 @@
 !RandomParkMiller methodsFor:'private'!
 
 peek
-    " This method answers the next random number that will be generated as a Float in the range [0..1). It answers the same value for all successive message sends. "
+    " This method answers the next random number that will be generated as a Float in the range [0..1). 
+      It answers the same value for all successive message sends. "
 
     ^ self peekInteger * PMmu1
 !
@@ -118,6 +119,7 @@
 !RandomParkMiller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.2 2001-11-17 11:08:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.3 2008-12-16 22:40:21 cg Exp $'
 ! !
+
 RandomParkMiller initialize!