   ([adj indicies]
    (adjust-index adj indicies 4))
   ([adj indicies value]
-   (assert (string? adj) "Index adjustment is not a string!")
+   (assert (string? adj) (str "Index adjustment is not a string, is instead " adj))
    (if (or (not (= (count adj) 3))
            (not (or (= (nth adj 2) \D)
                     (= (nth adj 2) \U)))
+           (not (get indicies (keyword (.substring adj 0 2))))
            ) ;; TODO Test to see if keyword exists
-     (do ; Invalid index, log and return
+     (do ; Invalid adjustment, log and return
          (log/debug "Adjustment " adj " incorrect, skipping")
          indicies)
      (update-in indicies

                  value
                  (- value))))))

(defn- create-indicies
  "Creates an indicies list modified by crisis tags and normalised
  Requries crisies to be initialised"
  [scenRec]

(defn- get-crisis-id-list
  "Taking a full crisis record, returns a collection of the crisis ids"
  [{crisises :crisises :as crisRec}]
  (map (partial :c_id)
       crisises))

(defn- add-crisis-desc
  "Given a crisis map, adds an :extraDesc field with a vector of string descriptors"

       (select-secret-society-missions)
       (select-secret-society-missions-unused)
       (select-minion-lists)
       (assoc-in [:indicies] (create-base-indicies-list))
       (load-crisis-indicies)
       (update-in [:indicies] fuzzify-indicies)
       (update-in [:indicies] fuzzify-indicies)
       (update-in [:indicies] normalise-all-indicies)
       )))

(:indicies (create-scenario))
