     "Takes array of CommentFields and translates to a proper Clojure vector"
     [hs]
     (for [^CommentField h hs]
-      [(-> h .name s/lower-case keyword) (.value h)]))
+      [(-> h .name st/lower-case keyword) (.value h)]))
 
 
 (defn album-mover

  (let [n (.name f)
        v (.value f)]
    (and (= "TITLE" n)
         (or (= "Unknown" (s/trim v))
             (= "%Y-%m-%d" (s/trim v))
             (empty? v)))))




(defn unogg
  "Strip the .suffix from a string.
   WARNING: Can not handle . in the name!"
  [s]
  (-> s
      (st/split  #"\.")
