 )
 
 (defn send-to-node [db dest msgtype msg]
-  (log/infof "Sending %s %s" dest msgtype)
+  (log/debugf "Sending %s -> %s %s %s" (dbid db) dest msgtype msg)
   ((:send-to-node db) dest (assoc msg :sender (dbid db) :msgtype msgtype))
 )
 
 (defn send-to-client [db dest action data]
-  (log/infof "Sending %s %s" dest action data)
+  (log/debugf "Sending %s %s %s" dest action data)
   ((:send-to-client db) dest {:action action :data data})
 )
 

    :current-master
      (if (-> (getobject db (:master msg)) nil? not)
        (do
          (log/infof "Have master %s %s" (:master msg) msg)
          (let [masterhash (masterkey db)]
            (-> (loop [msgs []
                   current masterhash]

                )))
          )
        )
        (log/errorf "%s: Can't find master %s" (dbid db) (:master msg))
      )
    (log/errorf "Unknown message type: %s %s" (:msgtype msg) msg)
  )
