diff --git a/collects/tests/racket/benchmarks/shootout/run.rkt b/collects/tests/racket/benchmarks/shootout/run.rkt
index 467d9e90f8..4051225592 100644
--- a/collects/tests/racket/benchmarks/shootout/run.rkt
+++ b/collects/tests/racket/benchmarks/shootout/run.rkt
@@ -1,6 +1,8 @@
 (module run mzscheme
   (require (only scheme/runtime-path define-runtime-path)
-           racket/port)
+           racket/port
+           mzlib/kw
+           unstable/port)
   (define input-map
     `(
       ("ackermann" "12")
@@ -23,7 +25,7 @@
       ("mandelbrot-generic" "3000")
       ("matrix" "12000")
       ("meteor" "25000")
-      ("moments" #f ,(lambda () (mk-sumcol-input 2000)))
+      ("moments" #f ,(lambda () (mk-moments-input 2000)))
       ("nbody" "3000000")
       ("nbody-generic" "3000000")
       ("nbody-vec" "3000000")
@@ -96,17 +98,22 @@
               (dynamic-require "fasta.rkt" #f)))))
       f))
 
-  (define (mk-sumcol-input n)
-    (let ([f (build-path (find-system-path 'temp-dir) (string-append "sumcol-" (number->string n)))])
+  (define/kw (mk-sumcol-input n #:optional moments?)
+    (let ([f (build-path (find-system-path 'temp-dir) (string-append (if moments? "moments-" "sumcol-")
+                                                                     (number->string n)))])
       (unless (file-exists? f)
-        (printf "Building sumcol ~a input: ~a\n" n f)
+        (printf "Building ~a ~a input: ~a\n" (if moments? "moments" "sumcol") n f)
         (let ([c (with-input-from-file (build-path (collection-path "tests")
                                                    "racket"
                                                    "benchmarks"
                                                    "shootout"
                                                    "sumcol-input.txt")
                    (lambda ()
-                     (read-bytes 10000)))])
+                     (if moments?
+                         (apply string-append ; like sumcol, but with floats
+                                (map (lambda (x) (string-append (number->string (exact->inexact x)) "\n"))
+                                     (read-all)))
+                         (read-bytes 10000))))])
           (with-output-to-file f
             (lambda ()
               (let loop ([n n])
@@ -115,6 +122,9 @@
                   (loop (sub1 n))))))))
       f))
 
+  (define (mk-moments-input n)
+    (mk-sumcol-input n #t))
+
   (define iters
     (let ([len (vector-length (current-command-line-arguments))])
       (unless (<= 1 len 3)
diff --git a/collects/tests/racket/benchmarks/shootout/typed/moments.rktl b/collects/tests/racket/benchmarks/shootout/typed/moments.rktl
index cd2f225de6..1103e740a1 100644
--- a/collects/tests/racket/benchmarks/shootout/typed/moments.rktl
+++ b/collects/tests/racket/benchmarks/shootout/typed/moments.rktl
@@ -12,7 +12,7 @@
        (numlist : (Listof Float) '())
        (sum : Float 0.0))
       (cond ((not (eof-object? line))
-             (let ((num (exact->inexact (assert (string->number line) real?))))
+             (let ((num (assert (string->number line) inexact-real?)))
                (loop (read-line) (cons num numlist) (+ num sum))))
             (else
              (unless (null? numlist)