Fix the last change.

diff --git a/rdfdb.el b/rdfdb.el
index b1a75ed..11df39d 100644 (file)
--- a/rdfdb.el
+++ b/rdfdb.el
@@ -378,10 +378,10 @@ MATCHER is a triple whose slots can be nil (wildcard)."
         (minimum-length-triples subject-property-triples)
         key)
     ;; Check whether triple is already in database.
-    (if (> minimum-length-triples
+    (if (> (length minimum-length-triples)
           (length property-object-triples))
        (setq minimum-length-triples property-object-triples))
-    (if (> minimum-length-triples
+    (if (> (length minimum-length-triples)
           (length object-subject-triples))
        (setq minimum-length-triples object-subject-triples))
     (unless (member triple minimum-length-triples)