   (cond (seq? spec)
         (map show-spec spec)
         true
-        (remove-top-values-log (dissoc-paths spec '((:english :initial)
-                                                    (:italiano :initial)
-                                                    (:synsem :essere)
-                                                    (:synsem :agr)
-                                                    (:synsem :pronoun)
-                                                    (:synsem :sem :tense)
-                                                    (:synsem :sem :obj :tense)
-                                                    (:synsem :sem :mod)
-                                                    (:synsem :infl))))))
+        (strip-refs (dissoc-paths spec '((:english :initial)
+                                         (:italiano :initial)
+                                         (:synsem :essere)
+                                         (:synsem :agr)
+                                         (:synsem :pronoun)
+                                         (:synsem :sem :tense)
+                                         (:synsem :sem :obj :tense)
+                                         (:synsem :sem :mod)
+                                         (:synsem :infl))))))
 
 (defn map-subset-by-path2 [vals-at-path lexemes path]
   (if (not (empty? vals-at-path))

   #?(:clj [clojure.tools.logging :as log])
   #?(:cljs [babel.logjs :as log]) 
   [dag_unify.core :refer [fail? dissoc-paths get-in label-of
                           remove-top-values-log strip-refs
                           unifyc]]))

(defn exception [error-string]
  #?(:clj

    (conj (build-lex-sch-index grammar
                               (map (fn [lexeme]
                                      (log/debug (str "trying(ci) lexeme: " lexeme))
                                      (unify lexeme
                                              {:phrasal false}))
                                    lexicon)
                               grammar)
