diff --git a/scsh/xanadu/xml.scm b/scsh/xanadu/xml.scm
index 5b94089..a7c5b7d 100644
--- a/scsh/xanadu/xml.scm
+++ b/scsh/xanadu/xml.scm
@@ -44,8 +44,8 @@
                  (set! tagged (+ tagged 1)))
                 ((and (> tagged 0)(eq? c #\<))
                  (set! tagged (+ tagged 1)))
-                ;;((and (= tagged 0)(eq? c #\>))
-                ;; (set! tagged (- tagged 1)))
+                ((and (= tagged 0)(eq? c #\>))
+                 (set! tagged (- tagged 1)))
                 ((and (> tagged 0)(eq? c #\>))
                  (set! tagged (- tagged 1)))
                 ((< tagged 0)