   (-> [(str "ID=" (:id m))
        (str "Number=" (nil->dot (:number m)))
        (str "Type=" (nil->dot (:type m)))
-       (str "Description=\"" (:description m) "\"")]
-      (cond->
-        (:source m) (conj (str "Source=\"" (:source m) "\""))
-        (:version m) (conj (str "Version=\"" (:version m) "\""))
+       (str "Description=\"" (escape-special-chars (:description m)) "\"")]
+      (cond->
+        (:source m) (conj (str "Source=\"" (escape-special-chars (:source m)) "\""))
+        (:version m) (conj (str "Version=\"" (escape-special-chars (:version m)) "\""))
         (:idx m) (conj (str "IDX=" (:idx m))))
       (pack-meta-info m [:id :number :type :description :source :version :idx])))
 
 (defn- stringify-meta-info-filter
   [m]
   (-> [(str "ID=" (:id m))
-       (str "Description=\"" (:description m) "\"")]
+       (str "Description=\"" (escape-special-chars (:description m)) "\"")]
       (cond->
         (:idx m) (conj (str "IDX=" (:idx m))))
       (pack-meta-info m [:id :description :idx])))

  (-> [(str "ID=" (:id m))
       (str "Number=" (nil->dot (:number m)))
       (str "Type=" (nil->dot (:type m)))
       (str "Description=\"" (:description m) "\"")]
      (cond->
        (:idx m) (conj (str "IDX=" (:idx m))))
      (pack-meta-info m [:id :number :type :description :idx])))

      (cond->
        (:genomes m) (conj (str "Genomes=" (:genomes m)))
        (:mixture m) (conj (str "Mixture=" (:mixture m))))
      (conj (str "Description=\"" (escape-special-chars (:description m)) "\""))
      (pack-meta-info m [:id :genomes :mixture :description])))

(defn- stringify-meta-info-pedigree
