         storage {:hash valuehash :value canonvalue :parent oldmaster}
         masterhash (sha256 (str valuehash oldmaster))
         ]
-    (log/debugf "Adding '%s' resulting in new masterhash %s" value masterhash)
+    (log/debugf "%s: Adding '%s' resulting in new masterhash %s" (dbid db) value masterhash)
     (level/put (getdb db)
                masterhash (tostr storage)
                master masterhash)

    :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)
  )
