         (if (true? validity) 
           (resource/create-resource coll-slug taxonomy-name :taxonomy reserved-properties props)
           validity))
-      (recur coll-slug taxonomy-name (assoc props :categories [])))))
+      (create-taxonomy coll-slug taxonomy-name (assoc props :categories [])))))
 
 (defn delete-taxonomy
   "Given the slug of the collection containing the taxonomy and the slug of the taxonomy,

      (cond 
        (nil? result) :bad-taxonomy
        (keyword? result) result
        :else true
          ;get an updated categories
          ;update the taxonomy with the updated categories
          ;update the taxonomy
          ;(update-taxonomy coll-slug taxonomy-slug taxonomy))
        ))))
        (blank? (first path-parts)) (vec (rest (rest path-parts)))
        :else (vec (rest path-parts))))))

;; ToDo - hide from docs (needs to be public for testing)
(defn create-categories
  ([category-slugs categories] (create-categories category-slugs categories categories)
  ([category-slugs category categories]
    (let category-slug [(first category-slugs)]
      (if (nil? category-slug)
        categories

      ; it doesn't exist and this is the last one - add w/ name and w/o categories
      ; it doesn't exist and there are more - add w/ categories
      ; it exists and this is the last one - done
      ; it exists and there are more and it has categories - move on
      ; it exists and there are more and it doesn't have categories - add categories
        (recur (rest category-slugs) next-category updated-categories)))))))

(defn create-category
  "Given the slug of the collection, a path to a new category, add an optional name for the category, create
  the category and any missing categories in the path to the category.
