This blows the stack, how do I fix it?

blow-stack.clj

(defn path
  [[x & more :as full-list] orgmat p]
  (let [maxsize (count orgmat)
        new-row (- (count more) 1)
        this-row (+  new-row 1)]
    (cond
     (empty? full-list) (conj p this-row)
     (= x 0) (path more orgmat p)
     (= x 1) (if (>= new-row (last p))
               (path more orgmat p)
               (path (reverse (nth orgmat new-row)) orgmat (conj p this-row))))))