diff --git a/collects/tests/stepper/manual-tests.txt b/collects/tests/stepper/manual-tests.txt
index 8911739758..2812044143 100644
--- a/collects/tests/stepper/manual-tests.txt
+++ b/collects/tests/stepper/manual-tests.txt
@@ -12,14 +12,9 @@ warning when the program window disappears.
 
 Try stepping backward and forward through programs with correct and erroneous
 (syntax errors, runtime errors) executions.
-** clicking "end" on a run that ends in an error does not behave correctly ***
-
-Make sure that the step buttons are enabled and disabled as necessary.
-... I wish I had a model-checker here.
 
 Try programs which print snips (print-convert-test.ss)
 
-
 try programs that contain test cases; make sure that the popups behave sensibly.
 
 Try jumping to the end on a program with an error.
diff --git a/collects/tests/stepper/test-engine.ss b/collects/tests/stepper/test-engine.ss
index bd79deb982..5614bdf62a 100644
--- a/collects/tests/stepper/test-engine.ss
+++ b/collects/tests/stepper/test-engine.ss
@@ -263,12 +263,12 @@
 
 
 
-
+;; DEBUGGING TO TRY TO FIND OUT WHY THIS DOESN'T WORK IN AN AUTOMATED TESTER:
 ;; test-sequence : ll-model? string? steps? -> (void)
 ;; given a language model and an expression and a sequence of steps,
 ;; check to see whether the stepper produces the desired steps
 ;;define (test-sequence the-ll-model exp-str expected-steps error-box)
-(match mz
+#;(match mz
   [(struct ll-model (namespace-spec teachpack-specs render-settings show-lambdas-as-lambdas? enable-testing?))
    (let* ([p2 (open-input-string "134")]
           [module-id (gensym "stepper-module-name-")]
diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss
index ae92690761..1a02656461 100755
--- a/collects/tests/stepper/through-tests.ss
+++ b/collects/tests/stepper/through-tests.ss
@@ -1440,17 +1440,9 @@
                    #;[display-only-errors #t]
                    #;[store-steps #f]
                    #;[show-all-steps #t])
-      #;(run-tests '(check-expect forward-ref check-within #;check-within-bad #;check-error) #;'(#;check-expect #;check-expect-2 check-within check-within-bad check-error))
+      #;(run-tests '(check-expect forward-ref check-within check-within-bad check-error check-error-bad))
       #;(run-tests '(teachpack-universe))
-      #;(run-test 'bad-parens)
+      #;(run-tests '(check-expect check-within))
       (run-all-tests)))
   
 
-(define (hhh)
-  (run-one-test 'bogus 
-              m:mz "abc" 
-              `()))
-
-(run-one-test 'bogus 
-              m:mz "abc" 
-              `())
\ No newline at end of file