       (assoc props
         ::read-note (inc pos)
         ::notes notes
-        ::correct-answer note)))
+        ::correct-answer (.toLowerCase note))))
 
   Object
   (render [this]

    (new-round this
      (merge
        (uc/initial-state Exercise nil)
        {::options     [["lower" "Lower"] ["higher" "Higher"]]
         ::pitch       ["C3" ".." "B5"]
         ::variation   24
         ::parent      this}
        props)))

  static om/Ident

  Object
  (render [this]
    (let [{:keys [::options ::ex-answer ::ex-total-questions
                  ::streak-count] :as props} (om/props this)
          [opt-type _] (s/conform ::options options)]
      (assert (s/valid? ::ex-props props) (s/explain-str ::ex-props props))
      (dom/div #js {:className "lesson-content"}
        (dom/div #js {:className "single-exercise visited-no-recolor"
