:keys destructuring is broken for unqualified keywords

[frenchy64]

; :keys is broken
clojure.core=> (let [{:keys [b] :as m} {:b :b}] [b m])
[nil {:b :b}]

; :strs and :syms are ok
clojure.core=> (let [{:strs [b] :as m} {"b" :b}] [b m])
[:b {"b" :b}]
clojure.core=> (let [{:syms [b] :as m} {'b :b}] [b m])
[:b {b :b}]

The problem seems to be the keyword :b is being converted to (clojure.core/get clojure_core-map-4419 :nil/b):

clojure.core=> (macroexpand-1 '(let [{:keys [b] :as m} {:b :b}] [b m]))
(let* [clojure_core-map-4419 {:b :b} clojure_core-map-4419 (if (clojure.core/seq? clojure_core-map-4419) (if (clojure.core/next clojure_core-map-4419) (clojure.core/into {} clojure_core-map-4419) (if (clojure.core/seq clojure_core-map-4419) (clojure.core/first clojure_core-map-4419) {})) clojure_core-map-4419) m clojure_core-map-4419 b (clojure.core/get clojure_core-map-4419 :nil/b)] [b m])