                                    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/debug (str "fail-path-between:" (fail-path-between (strip-refs (get-in bolt path))
+                                                                                           (strip-refs complement)))))
+                                 (log/debug (str "SUCCESS! " (wrapped-morph morph complement))))
+                                 
                                (if is-fail? :fail result)))
                      
                            ;; lazy-sequence of phrasal complements to pass one-by-one to the above (map)'s function.

           result)
         (catch Exception e
           (do
             (log/warn (str "ignoring exception: " e " and returning canonical form instead."))
             (strip-refs (get-in structure [:espanol])))))
    ;; TODO: consider throwing exception here.
    "(morph-fn is null)"))


                            (log/debug (str " agr@" path " = " (strip-refs (get-in bolt (concat path [:synsem :agr]))))))
                          complement-candidate-lexemes))))
            (do (log/debug (str "add-complement after adding complement: "
                                (string/join ","
                                             (map (fn [each]
                                                    (wrapped-morph morph each))
                                                  return-val))))
                return-val))))

      ;; path doesn't exist in bolt: simply return the bolt unmodified.
