diff --git a/collects/mred/private/mrcanvas.rkt b/collects/mred/private/mrcanvas.rkt
index a5350f6906..796e30f6ea 100644
--- a/collects/mred/private/mrcanvas.rkt
+++ b/collects/mred/private/mrcanvas.rkt
@@ -154,8 +154,8 @@
 	[init-manual-scrollbars 
 	 (lambda (x-len y-len x-page y-page x-val y-val)
 	   (let ([who '(method canvas% init-auto-scrollbars)])
-	     (when x-len (check-range-integer who x-len))
-	     (when y-len (check-range-integer who y-len))
+	     (when x-len (check-gauge-integer who x-len))
+	     (when y-len (check-gauge-integer who y-len))
 	     (check-gauge-integer who x-page)
 	     (check-gauge-integer who y-page)
 	     (check-range-integer who x-val)
diff --git a/collects/tests/gracket/windowing.rktl b/collects/tests/gracket/windowing.rktl
index 820df9a2e8..08b71d5321 100644
--- a/collects/tests/gracket/windowing.rktl
+++ b/collects/tests/gracket/windowing.rktl
@@ -986,6 +986,8 @@
 		
 	'done-sb))
 
+    (stv c init-manual-scrollbars 1000000 1000000 999999 999999 4 5)
+
     (stv c warp-pointer 21 23)
 
     (containee-window-tests c #t #t parent frame 0))