diff --git a/collects/tests/scribble/text-lang.rkt b/collects/tests/scribble/text-lang.rkt
index 2e7a9922..b6864f07 100644
--- a/collects/tests/scribble/text-lang.rkt
+++ b/collects/tests/scribble/text-lang.rkt
@@ -40,7 +40,8 @@
             . stuff))
     (parameterize ([current-directory this-dir]
                    [sandbox-output o]
-                   [sandbox-error-output current-output-port])
+                   [sandbox-error-output current-output-port]
+                   [sandbox-eval-limits '(2 10)])
       (define exn #f)
       (define thd #f)
       (define (run)
@@ -54,8 +55,7 @@
         (call-with-output-file (car m) #:exists 'truncate
           (lambda (o) (display (cdr m) o))))
       (set! thd (thread run))
-      (t (with-limits 2 #f
-           (if len-to-read (read-string len-to-read i) (port->string i)))
+      (t (if len-to-read (read-string len-to-read i) (port->string i))
          => expected)
       (t (begin (kill-thread thd) (cond [exn => raise] [else #t])))
       (for ([m more])