r9190: few bug fixes

[clsql.git] / db-sqlite / sqlite-sql.lisp

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index d07be2a5f13e3814c22694d23d003ebf3476003d..8aad430963216016f3362d1bcdc59bb086060382 100644 (file)
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -209,7 +209,7 @@
                             (:double
                              (when val
                                (coerce
-                                (read-from-string (sqlite:sqlite-aref row i))
+                                (read-from-string val)
                                 'double-float)))))))
          (sqlite:sqlite-free-row row)
          t))))