diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.ss
index 0d8a4dfaa6..9b6e1b9e0e 100644
--- a/collects/lang/private/teach.ss
+++ b/collects/lang/private/teach.ss
@@ -1763,7 +1763,10 @@
 					       null)
 		      (if continuing?
 			  (syntax/loc stx (set! id expr ...))
-			  (syntax/loc stx (#%app values (advanced-set!-continue id expr ...)))))]
+			  (syntax-property
+                           (syntax/loc stx (#%app values (advanced-set!-continue id expr ...)))
+                           'stepper-skipto
+                           (list syntax-e cdr syntax-e cdr car))))]
 		   [(_ id . __)
 		    (teach-syntax-error
 		     'set!