diff --git a/collects/mred/private/check.rkt b/collects/mred/private/check.rkt
index 32cfc070cf..4896e2ceb2 100644
--- a/collects/mred/private/check.rkt
+++ b/collects/mred/private/check.rkt
@@ -116,6 +116,7 @@
   (define check-margin-integer (check-bounded-integer 0 1000 #f))
 
   (define check-gauge-integer (check-bounded-integer 1 1000000 #f))
+  (define check-gauge-range-integer (check-bounded-integer 0 1000000 #f))
 
   (define (check-wheel-step cwho wheel-step)
     (when (and wheel-step
diff --git a/collects/mred/private/mritem.rkt b/collects/mred/private/mritem.rkt
index 76cb3b5762..ba81d0a094 100644
--- a/collects/mred/private/mritem.rkt
+++ b/collects/mred/private/mritem.rkt
@@ -509,7 +509,7 @@
      [get-value (entry-point (lambda () (send wx get-value)))]
      [set-value (entry-point
                  (lambda (v)
-                   (check-range-integer '(method gauge% set-value) v)
+                   (check-gauge-range-integer '(method gauge% set-value) v)
                    (when (> v (send wx get-range))
                      (raise-arguments-error (who->name '(method gauge% set-value))
                                             "out of range;\n given value is not between 0 and maximum value"
diff --git a/collects/tests/gracket/windowing.rktl b/collects/tests/gracket/windowing.rktl
index 01ab90bc2d..71df08bfb0 100644
--- a/collects/tests/gracket/windowing.rktl
+++ b/collects/tests/gracket/windowing.rktl
@@ -628,6 +628,9 @@
     (stv g set-range 10)
     (st 10 g get-range)
     (st 1 g get-value)
+
+    (stv g set-range 100011)
+    (stv g set-value 100010)
     
     (containee-window-tests g #t #f parent frame 2))