 (defn parse-item-group-def-head [item-group-def]
   (-> {:id (oid item-group-def)
        :name (xml1-> item-group-def (attr :Name))}
-      (assoc-when :description (description item-group-def))))
+      (assoc-when :desc (desc item-group-def))))
 
 (defn parse-item-group-def! [bus item-group-def]
   (publish!! bus :item-group-def (parse-item-group-def-head item-group-def))

(defn parse-study-event-def-head [study-event-def]
  (-> {:id (oid study-event-def)
       :name (xml1-> study-event-def (attr :Name))}
      (assoc-when :description (description study-event-def))))

(defn parse-study-event-def! [bus study-event-def]
  (publish!! bus :study-event-def (parse-study-event-def-head study-event-def))

(defn first-translated-text []
  (fn [loc] (xml1-> loc :TranslatedText text)))

(defn desc [loc]
  (xml1-> loc :Description (first-translated-text)))

(defn question [loc]
