clone-for does not work well with single letter tag

gistfile1.clj

user> (use 'net.cgrand.enlive-html)
nil
user> (sniptest "<tr><bb><div></div></bb></tr>"
                [:tr] (clone-for [option-value-map [1]]
                                   [:div] (content "a")))
"<tr><bb><div>a</div></bb></tr>"
user> (sniptest "<tr><b><div></div></b></tr>"
                [:tr] (clone-for [option-value-map [1]]
                                   [:div] (content "a")))
"<tr></tr><b></b><div><b></b></div><b></b>"