diff --git a/collects/tests/racket/benchmarks/shootout/typed/heapsort.rktl b/collects/tests/racket/benchmarks/shootout/typed/heapsort.rktl
index ff7eb0bba6..8dc73b9833 100644
--- a/collects/tests/racket/benchmarks/shootout/typed/heapsort.rktl
+++ b/collects/tests/racket/benchmarks/shootout/typed/heapsort.rktl
@@ -17,7 +17,7 @@
 (: gen_random (Float -> Float))
 (define (gen_random max)
   (set! LAST (modulo (+ (* LAST IA) IC) IM))
-  (/ (* max LAST) IM))
+  (/ (* max (exact->inexact LAST)) IM))
 
 (: heapsort (Natural (Vectorof Float) -> (U Void True)))
 (define (heapsort n ra)