 ;;
 
 
-(defn log-state-change
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                                                                            ;;
+;;            ---==| M I D D L E W A R E   W R A P P E R S |==----            ;;
+;;                                                                            ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
+(defn wrapper-log-state-change
   "This wrapper logs the state machine transitions to the configured
   logger. The default log level is :debug, but you can specify a
   different level."

       sm2))))


(defn epoch-counter
  "This wrapper increments a counter on every transition.
  Useful to determine whether the state machine is progressing."
  [handler]

        :wrappers
        [#'epoch-counter #'log-state-change #'error-state]}))))


  (defn- wrapper
    ([] identity)
