X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;fp=db-sqlite%2Fsqlite-sql.lisp;h=8aad430963216016f3362d1bcdc59bb086060382;hb=270e7b5d19d51c1a19d30b54996d89576c63d358;hp=d07be2a5f13e3814c22694d23d003ebf3476003d;hpb=7cdc9aa48baa3c52923d61da6fa632eb47ac0b5d;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index d07be2a..8aad430 100644
--- 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))))