--- a/Random.st	Fri Mar 02 17:08:05 2018 +0100
+++ b/Random.st	Fri Mar 02 18:49:14 2018 +0100
@@ -517,8 +517,7 @@
         |nextNonZero|
 
         [
-            self step.
-            (nextNonZero := seed bitAnd:16rFF) == 0
+            (nextNonZero := self nextByte) == 0
         ] whileTrue.
         res at:i put:nextNonZero.
     ].