       (let [exception (deref error)]
         (doseq [cp command-procs]
           (future-cancel cp))
+        (future-cancel updater)
         (future-cancel web-app)
         (future-cancel db-gc)
         ;; Stop the mq the old-fashioned way

            (send-command! "deactivate node" 1 node)))))

     (sleep))))

(defn configure-commandproc-threads
  "Update the supplied config map with the number of

                          (vec (for [n (range nthreads)]
                                 (future (with-error-delivery error
                                           (load-from-mq mq-addr mq-endpoint discard-dir db))))))
          updater       (future (check-for-updates))
          web-app       (let [authorized? (if-let [wl (jetty :certificate-whitelist)]
                                            (pl-utils/cn-whitelist->authorizer wl)
                                            (constantly true))
