diff --git a/collects/stepper/private/xml-snip-helpers.ss b/collects/stepper/private/xml-snip-helpers.ss
index c1f0af821a..e3285d2ffe 100644
--- a/collects/stepper/private/xml-snip-helpers.ss
+++ b/collects/stepper/private/xml-snip-helpers.ss
@@ -24,7 +24,7 @@
            (get-source-name txt) line col pos 1)))
       (let* ([source-name (get-source-name text)]
              [stx (read-syntax source-name
-                               (open-input-text-editor text 0 (send text last-position) source-name))])
+                               (open-input-text-editor text 0 'end values source-name))])
         (when (eof-object? stx)
           (raise-read-error
            (if splice?