diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss
index 79bee4ab6b..96421c4acb 100644
--- a/collects/tests/stepper/through-tests.ss
+++ b/collects/tests/stepper/through-tests.ss
@@ -34,7 +34,7 @@
                           (fprintf (current-error-port) "test-sequence: steps do not match.\ngiven: ~v\nexpected: ~v\n" result (car all-steps)))
 
                         ; uncomment for testing:
-                        #; (when (compare-steps result (car all-steps))
+                         #;(when (compare-steps result (car all-steps))
                            (printf "test-sequence: steps match for expected result: ~v\n"(car all-steps)))
 
                         (set! all-steps (cdr all-steps)))))]
@@ -1377,6 +1377,15 @@
                        ((hilite 8)))
          (finished-stepping))))
   
+  (t begin-onlyvalues
+     (test-advanced-sequence "(+ 3 (begin 4 5 6))"
+       `((before-after ((+ 3 (hilite (begin 4 5 6))))
+                       ((+ 3 (hilite (begin 5 6)))))
+         (before-after ((+ 3 (hilite (begin 5 6))))
+                       ((+ 3 (hilite 6))))
+         (before-after ((hilite (+ 3 6))
+                        (hilite 9))))))
+  
   (t begin
      (test-advanced-sequence "(begin (+ 3 4) (+ 4 5) (+ 9 8))"
       `((before-after ((begin (hilite (+ 3 4)) (+ 4 5) (+ 9 8)))
@@ -1403,6 +1412,6 @@
      (test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder
                                ))
   
-  (run-tests '(begin))
-  #;(run-all-tests)
+  #;(run-tests '(begin-onlyvalues))
+  (run-all-tests)
   )
diff --git a/collects/tests/stepper/world-test.ss b/collects/tests/stepper/world-test.ss
new file mode 100644
index 0000000000..a39c48763c
--- /dev/null
+++ b/collects/tests/stepper/world-test.ss
@@ -0,0 +1,10 @@
+(define (next t)
+  (+ t 1))
+
+(define (image t)
+  (place-image (circle 3 'solid 'red) 20 t (empty-scene 50 50)))
+
+;; --- run program run 
+(big-bang 50 50 .1 0)
+(on-redraw image)
+(on-tick-event next)
\ No newline at end of file