     {:keys [local-path find-name find-id] :as api} :api}]
   (str (local-path app-conf)
        File/separator
-       (let [id (find-id el-loc)]
-         (zx/xml1-> server-groups 
-                    :channelGroup :channels :channel
-                    :id id
-                    zip/up zip/up zip/up
-                    :name zx/text))
+       (safe-name? (let [id (find-id el-loc)]
+                     (zx/xml1-> server-groups 
+                                :channelGroup :channels :channel
+                                :id id
+                                zip/up zip/up zip/up
+                                :name zx/text)))
        File/separator
        (find-name el-loc)
        ".xml"))

        server-groups (zip/append-child server-groups (zip/node el-loc))]
    (assoc app-conf :server-groups server-groups)))

(defn file-path
  "Returns a function that, when given an app conf, returns a string file
  path for the current api with path appended."

       {:keys [local-path find-name] :as api} :api}]
    (str (local-path app-conf)
         File/separator
         (safe-name? (find-name el-loc))
         path)))

(defn channel-file-path
