diff --git a/collects/2htdp/tests/release.ss b/collects/2htdp/tests/release.ss
index 752a36e9be..6ba26a4476 100644
--- a/collects/2htdp/tests/release.ss
+++ b/collects/2htdp/tests/release.ss
@@ -12,6 +12,10 @@
                      500 500)
             (on-tick (lambda (x) (if (string? x) x (add1 x)))
                      r)
+	    (stop-when (lambda (x)
+			 (if (string? x)
+			     (>= (string-length x) 10)
+			     (>= x 5))))
             (on-key  (lambda (n key)
                        (if (string? n)
                            (string-append n key)