diff --git a/src/net/cgrand/xml.clj b/src/net/cgrand/xml.clj
index bd3a3e6..db58414 100644
--- a/src/net/cgrand/xml.clj
+++ b/src/net/cgrand/xml.clj
@@ -27,7 +27,7 @@
  given a root element"
  [root]
    (z/zipper #(or (tag? %) (document? %)) 
-     :content #(assoc %1 :content (and %2 (apply vector %2))) root))
+     (comp seq :content) #(assoc %1 :content %2) root))
 
 (defn- insert-element [loc e]
   (-> loc (z/append-child e) z/down z/rightmost))