Fixed call to compatible-predicates in set-type* :around (application)