Fix XML-RPC response format.

Ignore-this: df93c70e15dccc898fa1770c8a6193b4

darcs-hash:618430f8da6f5e8e555b2af9157a6c6f8c9f8495

1 files changed, 2 insertions, 0 deletions

diff --git a/main.lisp b/main.lisp
index 8fce09d..9c29fe2 100644
--- a/main.lisp
+++ b/main.lisp
@@ -336,6 +336,8 @@
                   (write (let ((*xml-rpc-package*
                                 (find-package '#:mulk.journal.xml-rpc)))
                            (s-xml-rpc::handle-xml-rpc-call xml-data 0))
+                         :pretty nil
+                         :escape nil
                          :stream *standard-output*))))
     (otherwise (show-web-journal)))
   #.(restore-sql-reader-syntax-state))