clj-gedcom.diff

--- a/src/clj_gedcom/core.clj
+++ b/src/clj_gedcom/core.clj
@@ -67,9 +67,9 @@
   "Parses GEDCOM records from a file or reader, returning map of labels to records."
   [in]
   (reduce (fn [records record]
-            (let [label (:label record)]
-              (when (contains? records label)
-                (throw (Exception. (format "duplicate record in GEDCOM for label %s" label))))
-              (assoc records label record)))
+            (let [id (or (:label record) (:tag record))]
+              (when (contains? records id)
+                (throw (Exception. (format "duplicate record in GEDCOM for %s" id))))
+              (assoc records id record)))
           {}
           (parse-gedcom-records in)))