   `cmr.http.kit.components.config`."
   [this]
   (log/info "Starting httpd component ...")
-  (let [port (config/http-port this)
+  (let [port (or (:port this)
+                 (config/http-port this))
         entry-point (config/http-entry-point-fn this)
         server (server/run-server (entry-point this)
                                   {:port port})]
     (log/trace "Entry point:" entry-point)
+    (log/trace "System data:" (into {} this))
     (log/debugf "HTTPD is listening on port %s" port)
     (log/debug "Started httpd component.")
     (assoc this :server server)))


(defn create-component
  ""
  []
  (map->HTTPD {}))

;;;   Component Lifecycle Implementation   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defrecord HTTPD [port])

(defn start
  "The `entry-point` in configuration needs to be of the form
