From 3f4736df6a62c4293203e4e7047d8a615b021d60 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 5 Oct 2001 16:18:00 +0000
Subject: [PATCH] .

original commit: bd21a7afa1018c96f19371dc7efde14f9741094d
---
 collects/mred/mred.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index f0b78265..a684d400 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5729,9 +5729,9 @@
   (when (and wheel-step
 	     (not (and (integer? wheel-step)
 		       (exact? wheel-step)
-		       (<= 1 wheel-step 1000))))
+		       (<= 1 wheel-step 10000))))
     (raise-type-error (who->name cwho)
-		      "#f or exact integer in [1,1000]"
+		      "#f or exact integer in [1,10000]"
 		      wheel-step)))
 
 (define (check-fraction who x)