     :as this}]
   {:pre [client-chan
          (:chan client-chan)
-         #_(::shared/server-name my-keys)
-         #_(::shared/keydir my-keys)
+         (::shared/server-name my-keys)
+         (::shared/keydir my-keys)
          extension
          ;; Actually, the rule is that it must be
          ;; 32 hex characters. Which really means

            (try
              ;; Q: Do I want unhandled exceptions to be fatal errors?
              (let [modified-state (handle-incoming! this msg)]
                (println "Updated state based on incoming msg:" (hide-long-arrays modified-state))
                modified-state)
              (catch clojure.lang.ExceptionInfo ex
                (println "handle-incoming! failed" ex (.getStackTrace ex))

   (+ (one-minute) now)))

(defn handle-incoming!
  "So...what *should* happen here?"
  [state msg]
  ;; Yay! I'm finally reaching here!
  (println "=============================================\n"
           "=\n"
           "curve.server/handle-incoming! -- What should I do?\n"
           "=\n"
           "=============================================")
  (throw (ex-info "curve.server/handle-incoming!"
                  {:message msg
                   :problem "Not yet written"})))

(defn hide-secrets!
  [this]
