From e54afdb8c8366f638e83d2580e77e3dc50be50d1 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Sun, 4 Sep 2005 07:38:45 +0000
Subject: [PATCH] ...

svn: r763
---
 collects/lang/private/teach.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.ss
index 84476386f6..a155591848 100644
--- a/collects/lang/private/teach.ss
+++ b/collects/lang/private/teach.ss
@@ -1763,7 +1763,10 @@
 					       exprs
 					       null)
 		      (if continuing?
-			  (syntax/loc stx (begin (set! id expr ...) set!-result))
+			  (syntax-property
+                           (syntax/loc stx (begin (set! id expr ...) set!-result))
+                           'stepper-skipto
+                           (list syntax-e cdr syntax-e car))
 			  (syntax-property
                            (syntax/loc stx (#%app values (advanced-set!-continue id expr ...)))
                            'stepper-skipto