   (if-let [[method pathvec verb-fn-sym mw-spec] dispatch-table-entry]
     (t/track
       (format "Analyzing resource handler function `%s'." verb-fn-sym)
-      (let [handler-sym (gensym "handler_sym__")
+      (let [handler-key (gensym "handler-key__")
             routes' (assoc routes
-                      [method (keywords->symbols pathvec)] handler-sym)
+                      [method (keywords->symbols pathvec)] handler-key)
             [middleware' middleware-key] (if (contains? middleware mw-spec)
                                    [middleware (get middleware mw-spec)]
                                    (let [mw-sym (gensym "middleware-key__")]

  "Returns a dispatch-map for use with map-traversal-dispatcher."
  [{:keys [routes handlers middleware]}
   {:keys [async? arg-symbol->resolver resolver-factories]}]
  (reduce (fn [dispatch-map [[method pathvec] handler-sym]]
            (t/track #(format "Compiling handler for `%s'." (get-in handlers [handler-sym :verb-fn-sym]))
                     (let [apply-middleware (if async?
                                              apply-middleware-async
                                              apply-middleware-sync)

                           {:keys [middleware-key route-params
                                   verb-fn-sym arglist arg-resolvers
                                   metadata context]}
                           (get handlers handler-key)

                           arglist-resolver (create-arglist-resolver
                                          arg-symbol->resolver
