   (list* "open" (map #(.getPath %) (get-songs))))
 
 (defn get-song [prefix]
-  (some #(if (.startsWith (.getName %) prefix) %) (get-songs)))
+  (some #(if (.startsWith (.toLowerCase (.getName %)) prefix) %) (get-songs)))
 
 (defn open [command player]
   (let [

      (let [
            input (-> (read-line) .trim .toLowerCase)
            val (try (Double/parseDouble input) (catch NumberFormatException e))
            ]
        (if val
          (.setGain player (/ val 9))

            "cancel" (do (println "cancelling save...") (reset! recorder/save? false))
            "size" (-> recorder/os .size println)
            "ls" (ls)
            (condp starts-with? input
              "rm" (rm input)
              "open" (open input player)
              (println "command not recognized"))
            ))))))
