                                      (conj (:Relations p2-type) p2-subtype))]
       (do
         (words/set-iyye-type! new-p1-type)
-        (words/set-iyye-type! new-p2-type)))))
+        (words/set-iyye-type! new-p2-type)
+        true))))
 
 (defn iyye_is_type_function [params]
   (let [[p1-type p2-type] params]


(defn iyye_is_type_create_function [params]
  (let [[p1-name p2-type] params
        p1-type (words/create-iyye-type p1-name)]
    (iyye_is_type_function [p1-type p2-type])))

(defn iyye_consists_function [params]

    (dosync (ref-set iyye_iyye (uname iyye)))
    (dosync (ref-set iyye_human (uname human)))
    (dosync (ref-set iyye_yumzya (uname yumzya)))
    (dosync (alter words/noun-words conj (create-entry type) (create-entry actor)
                   (create-entry ai) (create-entry iyye) (create-entry human)
                   (create-entry yumzya)))))

