Korma - entity transforms + key naming strategy = no worky

gistfile1.clj

(use 'korma.core)
(use 'korma.db

(defdb db 
  (postgres {:naming {:keys (comp keyword clojure.string/upper-case name)}}))

(declare user)

(defentity address
  (transform identity)
  (fields :line1 :suburb)
  (belongs-to user))

(defentity user
  (fields :name)
  (has-many address))

(select address (with user) (where {:id 1)) ;; => ({:ID 1 :LINE1 "Blah St" :SUBURB "Wagga Wagga" :USER_ID 1}) note: no user fields in result map