diff --git a/collects/tests/stepper/through-tests.ss b/collects/tests/stepper/through-tests.ss
index 96421c4acb..f33457464e 100644
--- a/collects/tests/stepper/through-tests.ss
+++ b/collects/tests/stepper/through-tests.ss
@@ -50,7 +50,11 @@
                     ((stream-ify exprs iter))))])
           (let/ec escape
             (parameterize ([error-escape-handler (lambda () (escape (void)))])
-              (go program-expander receive-result render-settings track-inferred-names?)))
+              (go program-expander receive-result render-settings track-inferred-names?
+                  ;; language level name:
+                  "bogus language level"
+                  ;; run-in-drscheme thunk:
+                  (lambda (thunk) (thunk)))))
           (error-display-handler current-error-display-handler))))
   
   (define (test-sequence namespace-spec teachpack-specs render-settings track-inferred-names? exp-str expected-steps)
@@ -99,6 +103,10 @@
   (define test-both-ints (make-multi-level-test-sequence (list test-intermediate-sequence
                                                                test-intermediate/lambda-sequence)))
   
+  (define test-lazy-sequence (lang-level-test-sequence `(lib "lazy.ss" "lazy")
+                                                  fake-mz-render-settings
+                                                  #f))
+  
   ; mutate these to values you want to examine in the repl:
   (define bell-jar-specimen-1 #f)
   (define bell-jar-specimen-2 #f)
@@ -1407,11 +1415,21 @@
       `(error "begin: expected a sequence of expressions after `begin', but nothing's there")))
   
   
+  ;; LAZY.SS:
+  
+  (t lazy
+     (test-lazy-sequence 
+      "(+ 3 4)"
+      `((finished-stepping)
+        (before-after ((hilite (+ 3 4)))
+                      ((hilite 7)))
+        (finished-stepping))))
+  
   
   #;(t teachpack-callbacks
      (test-teachpack-sequence " (define (f2c x) x) (convert-gui f2c)" `() ; placeholder
                                ))
   
-  #;(run-tests '(begin-onlyvalues))
-  (run-all-tests)
+  (run-tests '(lazy))
+  #;(run-all-tests)
   )