                          nil))
             complement-candidate-lexemes (if (not (= true
                                                      (get-in bolt (concat path [:phrasal]))))
-                                           (if false cached (flatten (vals lexicon))))]
+                                           (if cached cached (flatten (vals lexicon))))]
         (let [semantics (get-in spec [:synsem :sem])]
           (if (not (nil? semantics))
             (if (not (nil? semantics)) (log/debug (str "  with semantics:" (strip-refs semantics))))))

                                              (+ 1 depth)
                                              index parent morph)]
                          (if (empty? phrasal-children)
                            (let [message (str "no phrasal children for parent: " (morph parent) "(rule=" (get-in parent [:rule]) ")" )]
                              (log/debug message))
                            ;; else; there are phrasal-children, so attach them below parent:
                            (do

              
              return-val
              (filter (fn [result]
                        (do
                          (log/debug (str "LOOKING AT RESULT:  " result))
                          (not (fail? result))))
                      (map (fn [complement]
                             (let [debug (log/debug (str "adding complement to: ["
                                                         (get-in bolt [:rule]) " "
