                             (update-in [:rook :metadata]
                               merge (dissoc metadata :arg-resolvers))
                             ;; FIXME
-                            (update-in [:context] str location))))
+                            (cond-> context
+                              (update-in [:context] str context)))))
 
                   pathvec' (mapv #(if (variable? %) ::param-next %) pathvec)
 

              [middleware (get middleware mw-spec)]
              (let [mw-sym (gensym "mw_sym__")]
                [(assoc middleware mw-spec mw-sym) mw-sym]))
            ns-metadata      (-> verb-fn-sym namespace symbol the-ns meta)
            metadata         (merge (dissoc ns-metadata :doc)
                               (meta (resolve verb-fn-sym)))
            sync?            (:sync metadata)
            route-params     (mapv (comp symbol name)
                               (filter keyword? pathvec))
            pathvec          (keywords->symbols pathvec)
            arglist          (first (:arglists metadata))
            non-route-params (remove (set route-params) arglist)
            arg-resolvers    (:arg-resolvers metadata)
            schema           (:schema metadata)
            handler {:middleware-sym   mw-sym
                     :route-params     route-params
                     :non-route-params non-route-params
                     :verb-fn-sym      verb-fn-sym
                     :arglist          arglist
                     :arg-resolvers    arg-resolvers
                     :schema           schema
                     :sync?            sync?
                     :metadata         metadata
                     :location         (string/join "/" (cons "" pathvec))}
            handlers (assoc handlers handler-sym handler)]
        (recur routes handlers middleware (next entries)))
      {:routes     (sorted-routes routes)

                (unnest-table context-pathvec middleware entries))))
          (unnest-table [context-pathvec default-middleware entries]
            (mapv (fn [[_ pathvec :as unnested-entry]]
                    (assoc unnested-entry 1
                           (with-meta (into context-pathvec pathvec)
                             {:context (into context-pathvec
                                         (:context (meta pathvec)))})))
              (mapcat (partial unnest-entry default-middleware) entries)))]
    (unnest-table [] nil dispatch-table)))

