diff --git a/ChangeLog b/ChangeLog
index 1ecb82d7..21184f9c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Feb 24 14:07:52 CET 2001 Daniel Veillard <Daniel.Veillard@imag.fr>
+
+	* xpath.c: found a memleak and fixed a nasty bug
+
 Sat Feb 24 03:35:48 CET 2001 Daniel Veillard <Daniel.Veillard@imag.fr>
 
 	* xmllint.[c1] : added return code errors for xmllint
diff --git a/xpath.c b/xpath.c
index 1287d5da..63903f03 100644
--- a/xpath.c
+++ b/xpath.c
@@ -931,7 +931,7 @@ xmlXPathFreeValueTree(xmlNodeSetPtr obj) {
     if (obj == NULL) return;
     for (i = 0;i < obj->nodeNr;i++)
         if (obj->nodeTab[i] != NULL)
-	    xmlFreeNode(obj->nodeTab[i]);
+	    xmlFreeNodeList(obj->nodeTab[i]);
 
     if (obj->nodeTab != NULL) {
 #ifdef DEBUG
@@ -2441,7 +2441,7 @@ xmlXPathCompareValues(xmlXPathParserContextPtr ctxt, int inf, int strict) {
 	    if (arg1->type == XPATH_NODESET) {
 		ret = xmlXPathCompareNodeSetValue(ctxt, inf, strict, arg1, arg2);
 	    } else {
-		ret = xmlXPathCompareNodeSetValue(ctxt, !inf, !strict, arg2, arg2);
+		ret = xmlXPathCompareNodeSetValue(ctxt, !inf, !strict, arg2, arg1);
 	    }
 	}
 	return(ret);