--- a/Random.st	Wed Mar 21 19:35:48 2018 +0100
+++ b/Random.st	Mon Mar 26 16:10:33 2018 +0200
@@ -433,11 +433,10 @@
      claus: the original GNU version has a bug in returning values
      from the interval [start .. stop+1]"
 
-    |rnd|
+    |rndFloat rnd|
 
-    rnd := self nextInteger.
-    rnd := rnd * (stop - start) asFloat.
-    rnd := rnd + start asFloat.
+    rndFloat := self next.
+    rnd := (rndFloat * (stop - start) asFloat) + start asFloat.
     ^ rnd
 
     "