diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.ss
index 6e916361d0..2656de69b5 100755
--- a/collects/tests/run-automated-tests.ss
+++ b/collects/tests/run-automated-tests.ss
@@ -31,7 +31,8 @@
 (define tests
   '([load "mzscheme/quiet.ss" (lib "scheme/init")]
     [require "typed-scheme/main.ss"]
-    [require "match/plt-match-tests.ss"]))
+    [require "match/plt-match-tests.ss"]
+    [require "stepper/automatic-tests.ss"]))
 
 
 (require scheme/runtime-path)
diff --git a/collects/tests/stepper/automatic-tests.ss b/collects/tests/stepper/automatic-tests.ss
index 7c14acc484..685b42d5a2 100644
--- a/collects/tests/stepper/automatic-tests.ss
+++ b/collects/tests/stepper/automatic-tests.ss
@@ -1,7 +1,8 @@
 (module automatic-tests mzscheme
   (require "through-tests.ss")
   
-  (parameterize ([display-only-errors #t])
-    (if (run-all-tests-except '(check-expect begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3))
+  (parameterize ([display-only-errors #t]
+                 [current-output-port (open-output-string)])
+    (if (run-all-tests-except '(check-error begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3))
         (exit 1)
         (exit 0))))
diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss
index 9a2165ee0e..d99ea1d9ed 100755
--- a/collects/tests/stepper/through-tests.ss
+++ b/collects/tests/stepper/through-tests.ss
@@ -1368,21 +1368,6 @@
          (before-after (9 (list 'check-expect-failed 7 17) (list 'check-expect-passed 2 2) (check-expect (hilite (+ 2 2)) 4))
                        (9 (list 'check-expect-failed 7 17) (list 'check-expect-passed 2 2) (check-expect (hilite 4) 4))))))
   
-  (t1 check-expect-2
-      (test-upto-int/lam
-       "(check-expect (+ 3 4) (+ 8 9)) (check-expect (+ 3 1) 4) (+ 4 5)"
-       `((before-after ((hilite (+ 4 5)))
-                       ((hilite 9)))
-         (before-after (9 (check-expect (+ 3 4) (hilite (+ 8 9))))
-                       (9 (check-expect (+ 3 4) (hilite 17))))
-         (before-after (9 (check-expect (hilite (+ 3 4)) 17))
-                       (9 (check-expect (hilite 7) 17)))
-         (before-after (9 (check-expect (hilite (+ 3 1)) 4))
-                       (9 (check-expect (hilite 4) 4))))))
-  
-  
-  
-  
   (t1 check-within
       (test-bwla-to-int/lam
        "(check-within (+ 3 4) (+ 8 10) (+ 10 90)) (check-expect (+ 1 1) 2)(+ 4 5)"