diff --git a/scsh/xanadu/xml.scm b/scsh/xanadu/xml.scm
index 9a2aa42..b000b50 100644
--- a/scsh/xanadu/xml.scm
+++ b/scsh/xanadu/xml.scm
@@ -39,18 +39,18 @@
       (let ((tagged 0))
         (do ((c (read-char in) (read-char in)))
             ((eof-object? c) contents)
-        (cond ((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)
-               (display "xml : bad xml file - broken tags.")(newline)
-               (set! tagged 0))
-              )
-        (set! contents (string-append contents (tagify! c tagged))))))
+          (cond ((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)
+                 (display "xml : bad xml file - broken tags.")(newline)
+                 (set! tagged 0))
+                )
+          (set! contents (string-append contents (tagify! c tagged))))))
     (xml-read-in-file contents)))