scratch/sqlite 627845d: Fix the concurrency updates

[Lars Ingebrigtsen]

branch: scratch/sqlite
commit 627845dac603a64a3ae06a560734318c6be5d565
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix the concurrency updates
---
 lisp/emacs-lisp/multisession.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index 9fefb8a..a519d3c 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -124,12 +124,12 @@ DOC should be a doc string, and ARGS are keywords as 
applicable to
                (car
                 (sqlite-select
                  multisession--db
-                 "select value, sequence from multisession where sequence > 0 
package = ? and key = ?"
+                 "select value, sequence from multisession where sequence > ? 
and package = ? and key = ?"
                  (cons (multisession--cached-sequence object) id)))))
           (if stored
-              (let ((value (read-from-string (caar stored))))
+              (let ((value (car (read-from-string (car stored)))))
                 (setf (multisession--cached-value object) value
-                      (multisession--cached-sequence object) (cadar stored))
+                      (multisession--cached-sequence object) (cadr stored))
                 value)
             ;; Nothing, return the cached value.
             (multisession--cached-value object))))