From b902cb5455da6554aa2d5368258405000d383049 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 10 Dec 2010 06:37:33 -0600 Subject: [PATCH] closes PR 11522 --- collects/stepper/xml-tool.rkt | 3 +++ 1 file changed, 3 insertions(+) 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)) #\>))