I suppose, that test cases are not complete, since number of letters are not checked. For example, this solution is passed successfully.
(fn [arg] (set (map set (filter #(> (count %) 1) (map val (group-by #(set %) arg))))))
But it treats "ever" and "evere" words as anagrams.