   (if (< 0 (count notes))
     (let [root (first (sort notes))
           adjusted-notes (set (map (fn [x] (- x root)) notes ))]
-      (or (find-name (simplify-chord adjusted-notes) CHORD)
-          (find-name (compress-chord adjusted-notes) CHORD)))))
+      (or (reverse-get CHORD (simplify-chord adjusted-notes))
+          (reverse-get CHORD (compress-chord adjusted-notes))))))
 
 (defn find-chord
   [notes]

      :author "Jeff Rose, Sam Aaron & Marius Kempe"}
  overtone.music.pitch
  (:use [overtone.helpers old-contrib]
        [overtone.algo chance])
  (:require [clojure.string :as string]))


  ie: (find-scale-name [2 1 2 2 2 2 1]
  :melodic-minor-asc"
  [scale]
  (reverse-get SCALE scale))

(defn find-pitch-class-name
  "Given a midi number representing a note, returns the name of the note
