diff --git a/src/sources/sqlite.lisp b/src/sources/sqlite.lisp
index d4e7d7a..c93ef2f 100644
--- a/src/sources/sqlite.lisp
+++ b/src/sources/sqlite.lisp
@@ -136,6 +136,7 @@
 		     ;; objects, where we only want to deal with text.
 		     ;;
 		     (cond ((or (string-equal "float" coltype)
+                                (string-equal "real" coltype)
                                 (string-equal "double precision" coltype)
 				(and (<= 7 (length coltype))
 				     (string-equal "numeric" coltype :end2 7)))