     ;; MUSTDO: regenerate :serialized.
 
     (cache-serialization
-     (merge (dissoc-paths lexical-entry (list [:synsem :subcat :2]
-                                              [:serialized]))
+     (dag_unify.core/merge (dissoc-paths lexical-entry (list [:synsem :subcat :2]
+                                                             [:serialized]))
             {:synsem {:subcat {:2 '()}}
              :canary :tweet43})) ;; if the canary tweets, then the runtime is getting updated correctly.
 

                               (log/debug (str "without object: " without-object))
                               (log/debug (str "is fail? (without object): " (fail? without-object)))
                               (let [result
                                     (merge without-object
                                            {:serialized (serialize without-object)})]
                                 (log/debug (str "is fail (w/o object; merged):" (fail? result)))
                                 result))))
                     

;; to add new language like Espanol.
(defn embed-phon [lexical-entry]
  (cond (string? (get-in lexical-entry '(:english)))
        (unifyc {:english {:english (get-in lexical-entry '(:english))}}
                (embed-phon (dissoc lexical-entry ':english)))

        (and (string? (get-in lexical-entry '(:italiano)))
             (= :verb (get-in lexical-entry '(:synsem :cat))))
        (unifyc {:italiano {:italiano (get-in lexical-entry '(:italiano))}}
                (embed-phon (dissoc lexical-entry ':italiano)))

        (string? (get-in lexical-entry '(:italiano)))
        (unifyc {:italiano {:italiano (get-in lexical-entry '(:italiano))}}
                (embed-phon (dissoc lexical-entry ':italiano)))
        true
        lexical-entry))

