               (log/debug (str "over: parent: " (get-in parent [:rule]) " with schema symbol: " (get-in parent [:schema-symbol])))
               (if (= (:first parent) :head)
                 ;; else, head is left child.
-                (do (log/debug "over: left child (head):" (strip-refs child1))
-                    (log/debug "over: right child (comp):" (strip-refs child2)))
+                (do (log/trace "over: left child (head):" (strip-refs child1))
+                    (log/trace "over: right child (comp):" (strip-refs child2)))
                 ;; else, head is right child.
-                (do (log/debug "over: left child (comp):" (strip-refs child1))
-                    (log/debug "over: right child (head):" (strip-refs child2))))
+                (do (log/trace "over: left child (comp):" (strip-refs child1))
+                    (log/trace "over: right child (head):" (strip-refs child2))))
 
               (concat
                ;; if parent is map, do introspection: figure out the schema from the :schema-symbol attribute,


(defn moreover-head [parent child lexfn-sem-impl & [morph]]
  (let [morph (if morph morph (fn [x] (strip-refs (dissoc x :serialized))))]
    (log/debug (str "moreover-head (candidate) parent: [" (get-in parent [:rule]) "] '" (morph parent) "' sem:    " (strip-refs (get-in parent '(:synsem :sem) :no-semantics))))
    (log/debug (str "moreover-head (candidate) head child: [" (get-in parent [:child]) "] '" (morph child) "' sem:" (strip-refs (get-in child '(:synsem :sem) :top))))
    (let [head-pre-checks (head-pre-checks parent child)
          result
          (if head-pre-checks

                     (log/debug (str "comp precheck failed  for pair: " pair))
                     (log/debug (str "comp precheck failed: parent wanted:" (strip-refs parent-value) ";"
                                     "child has: " (strip-refs child-value)))
                     (log/trace (str " child is: " (strip-refs child)))
                     :fail)
                   (do
                     (log/trace (str "comp precheck success for pair: " pair))
                     :top))))
             (lazy-seq comp-precheck-pairs))))

