2 files changed, 2 insertions, 1 deletions
diff --git a/sca-cpp/trunk/kernel/value.hpp b/sca-cpp/trunk/kernel/value.hpp
index 211873ef0c..07be7f5c82 100644
--- a/sca-cpp/trunk/kernel/value.hpp
+++ b/sca-cpp/trunk/kernel/value.hpp
@@ -240,7 +240,7 @@ public:
             return true;
         switch(type) {
         case value::Undefined:
-            return true;
+            return v.type == value::Undefined;
         case value::List:
             return v.type == value::List && lst()() == v.lst()();
         case value::Lambda:
diff --git a/sca-cpp/trunk/kernel/xml.hpp b/sca-cpp/trunk/kernel/xml.hpp
index 3459592c97..97c9effcc2 100644
--- a/sca-cpp/trunk/kernel/xml.hpp
+++ b/sca-cpp/trunk/kernel/xml.hpp
@@ -347,6 +347,7 @@ template<typename R> const failable<R> writeXML(const lambda<R(const string&, co
     xmlTextWriterPtr xml = xmlNewTextWriter(out);
     if (xml == NULL)
         return mkfailure<R>("xmlNewTextWriter failed");
+    xmlTextWriterSetIndent(xml, 1);
 
     const failable<bool> w = write(l, xml, xmlTag);
     xmlFreeTextWriter(xml);