                                              (map (fn [each]
                                                     (wrapped-morph morph each))
                                                   return-val))))
+                (log/debug (str "BAD RESULT: " (string/join ","
+                                                            (map #(get-in % [:head :head :subcat] :none)
+                                                                 return-val))))
+                
                 return-val))))
 
       ;; path doesn't exist in bolt: simply return the bolt unmodified.

        bolt-spec (get-in bolt path :no-path)
        spec (unifyc spec bolt-spec)
        lexicon (if (future? lexicon) @lexicon lexicon)]
    (log/debug (str "add-complement to bolt with bolt:["
                    (if (map? bolt) (get-in bolt [:rule]))
                    " '" (wrapped-morph morph bolt) "'"

                                   is-fail? (fail? result)]
                               (if is-fail?
                                 (do
                                   (log/trace (str "fail-path-between:" (fail-path-between (strip-refs (get-in bolt path))
                                                                                           (strip-refs complement)))))
                                 (log/trace (str "Success: returning: " (wrapped-morph morph complement))))
                                 
                               (if is-fail? :fail result)))
                     
