The best I could come up with was:
(defn dups [seq] (map (fn [[id freq]] id) (filter (fn [[id freq]] (> freq 1)) (frequencies seq))))
Is there a more concise way?