diff --git a/racket/src/ChezScheme/s/5_3.ss b/racket/src/ChezScheme/s/5_3.ss
index af6ff11aec..35ed249623 100644
--- a/racket/src/ChezScheme/s/5_3.ss
+++ b/racket/src/ChezScheme/s/5_3.ss
@@ -2780,7 +2780,7 @@
           [(fixnum? x)
            (unless (fxpositive? x) ($oops who "not a positive exact integer ~s" x))
            (meta-cond
-            [(fixnum? 4294967087)
+            [(<= (constant most-negative-fixnum) 4294967087 (constant most-positive-fixnum))
              (if (fx< x 4294967087)
                  (random-int s x)
                  (random-integer s x))]