diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.ss
index 2656de69b5..6e916361d0 100755
--- a/collects/tests/run-automated-tests.ss
+++ b/collects/tests/run-automated-tests.ss
@@ -31,8 +31,7 @@
 (define tests
   '([load "mzscheme/quiet.ss" (lib "scheme/init")]
     [require "typed-scheme/main.ss"]
-    [require "match/plt-match-tests.ss"]
-    [require "stepper/automatic-tests.ss"]))
+    [require "match/plt-match-tests.ss"]))
 
 
 (require scheme/runtime-path)
diff --git a/collects/tests/stepper/automatic-tests.ss b/collects/tests/stepper/automatic-tests.ss
index 685b42d5a2..7c14acc484 100644
--- a/collects/tests/stepper/automatic-tests.ss
+++ b/collects/tests/stepper/automatic-tests.ss
@@ -1,8 +1,7 @@
 (module automatic-tests mzscheme
   (require "through-tests.ss")
   
-  (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))
+  (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))
         (exit 1)
         (exit 0))))
diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss
index d99ea1d9ed..9a2165ee0e 100755
--- a/collects/tests/stepper/through-tests.ss
+++ b/collects/tests/stepper/through-tests.ss
@@ -1368,6 +1368,21 @@
          (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)"