diff --git a/collects/tests/future/random-future.rkt b/collects/tests/future/random-future.rkt
index 517bab206e..144f4abf57 100644
--- a/collects/tests/future/random-future.rkt
+++ b/collects/tests/future/random-future.rkt
@@ -186,11 +186,13 @@ Errors/exceptions and other kinds of control?
   (printf "DrDr Ignore! random-seed ~s\n" seed)
   (random-seed seed))
 
+(define start-time (current-seconds))
 (let loop ([n 32])
   (unless (zero? n)
-    (printf ".") (flush-output)
-    (let ([p (gen-prog)])
-      ;(pretty-print p)
-      (eval p (namespace-anchor->namespace ns-here)))
-    (loop (- n 1))))
+    (when (< (- (current-seconds) start-time) 120)
+      (printf ".") (flush-output)
+      (let ([p (gen-prog)])
+        ;(pretty-print p)
+        (eval p (namespace-anchor->namespace ns-here)))
+      (loop (- n 1)))))
 (newline)