diff --git a/collects/stepper/xml-tool.rkt b/collects/stepper/xml-tool.rkt
index 1e2cb93ef6..84208c660b 100644
--- a/collects/stepper/xml-tool.rkt
+++ b/collects/stepper/xml-tool.rkt
@@ -354,6 +354,9 @@
              (let ([char (send text get-character pos)])
                (case char
                  [(#\>) #f]
+                 [(#\/) (if last-space
+                            (loop (- pos 1) last-space)
+                            #f)]
                  [(#\<) 
                   (if (or (char=? (send text get-character (+ pos 1)) #\/)
                           (char=? (send text get-character (+ pos 1)) #\>))