(defmethod db-cursor ((db db-txn) &key txn write) (db-cursor (if (is-secondary db) (db-sec-handle db) (db-handle db)) :txn txn :write write))