diff --git a/collects/tests/racket/benchmarks/common/conform.sch b/collects/tests/racket/benchmarks/common/conform.sch
index dadcc5d91f..2545109c1e 100644
--- a/collects/tests/racket/benchmarks/common/conform.sch
+++ b/collects/tests/racket/benchmarks/common/conform.sch
@@ -612,7 +612,7 @@
 ;(go)
 ;(exit)
 
-(time (let loop ((n 10))
+(time (let loop ((n 100))
         (if (zero? n)
             'done
             (begin
diff --git a/collects/tests/racket/benchmarks/common/destruct.sch b/collects/tests/racket/benchmarks/common/destruct.sch
index bbc4473e81..1b59adaf30 100644
--- a/collects/tests/racket/benchmarks/common/destruct.sch
+++ b/collects/tests/racket/benchmarks/common/destruct.sch
@@ -62,7 +62,7 @@
 ;;; call:  (destructive 600 50)
 
 (let ((input (with-input-from-file "input.txt" read)))
-  (time (let loop ((n 10) (v 0))
+  (time (let loop ((n 100) (v 0))
           (if (zero? n)
               'v
               (loop (- n 1)
diff --git a/collects/tests/racket/benchmarks/common/peval.sch b/collects/tests/racket/benchmarks/common/peval.sch
index 40d5047170..719315172e 100644
--- a/collects/tests/racket/benchmarks/common/peval.sch
+++ b/collects/tests/racket/benchmarks/common/peval.sch
@@ -627,7 +627,7 @@
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time
-   (let loop ((n 60) (v 0))
+   (let loop ((n 600) (v 0))
      (if (zero? n)
          v
          (loop (- n 1) (test (if input 0 17)))))))
diff --git a/collects/tests/racket/benchmarks/common/scheme.sch b/collects/tests/racket/benchmarks/common/scheme.sch
index ac891d530d..f464218ab3 100644
--- a/collects/tests/racket/benchmarks/common/scheme.sch
+++ b/collects/tests/racket/benchmarks/common/scheme.sch
@@ -1071,7 +1071,7 @@
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time
-   (let loop ((n 3000) (v 0))
+   (let loop ((n 30000) (v 0))
      (if (zero? n)
          v
          (loop (- n 1) (scheme-eval (if input expr1 '(+ 1 2))))))))
diff --git a/collects/tests/racket/benchmarks/common/scheme2.sch b/collects/tests/racket/benchmarks/common/scheme2.sch
index 01322f7d06..87a611770f 100644
--- a/collects/tests/racket/benchmarks/common/scheme2.sch
+++ b/collects/tests/racket/benchmarks/common/scheme2.sch
@@ -1083,7 +1083,7 @@
 
 (let ((input (with-input-from-file "input.txt" read)))
   (time
-   (let loop ((n 3000) (v 0))
+   (let loop ((n 30000) (v 0))
      (if (zero? n)
          v
          (loop (- n 1) (scheme-eval (if input expr1 '(+ 1 2))))))))