    (+ (one-minute) now)))
 
 (defn handle-incoming!
+  "So...what *should* happen here?"
   [state msg]
   ;; Yay! I'm finally reaching here!
-  #_(throw (ex-info "curve.server/handle-incoming!"
-                  {:message msg
-                   :problem "Not yet written"}))
   (println "=============================================\n"
            "=\n"
            "curve.server/handle-incoming! -- What should I do?\n"
            "=\n"
            "=============================================")
-  ;;; Doing nothing is pretty definitely the wrong thing.
-  state)
+  (throw (ex-info "curve.server/handle-incoming!"
+                  {:message msg
+                   :problem "Not yet written"})))
 
 (defn hide-secrets!
   [this]

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

        (fn [this]
          (if this
            (if-not (identical? this ::drained)
              ;; Weren't called to explicitly close
              (if-not (realized? stopper)
                (do
                  ;; The promise that tells us to stop hasn't
                  ;; been fulfillef
                  (println "curve.server/event-loop-bottom Rotating"
                           #_(util/pretty (hide-long-arrays this))
                           "...this...")
