diff --git a/format.rkt b/format.rkt
index 0e570bf..02c5375 100644
--- a/format.rkt
+++ b/format.rkt
@@ -126,7 +126,7 @@
        (if (eq? m mode)
            (loop* start)
            (cons (get-xml)
-                 (loop* (add1 loc))))])))
+                 (loop* loc)))])))
 
 (define (get-mode loc c)
   (define-values (mode _)