diff --git a/src/sources/sqlite/sqlite-schema.lisp b/src/sources/sqlite/sqlite-schema.lisp
index 32af50e..15d7d84 100644
--- a/src/sources/sqlite/sqlite-schema.lisp
+++ b/src/sources/sqlite/sqlite-schema.lisp
@@ -100,9 +100,9 @@
                       (seq (sqlite:execute-single db sql)))
                  (when (and seq (not (zerop seq)))
                    ;; magic marker for `apply-casting-rules'
-                   (log-message :notice "Auto Increment found at ~a.~a"
+                   (log-message :notice "SQLite column ~a.~a uses a sequence"
                                 table-name name)
-                   (setf (coldef-extra field)  "auto_increment"))))
+                   (setf (coldef-extra field) :auto-increment))))
              (add-field table field)))))
 
 (defun list-all-columns (schema
diff --git a/src/sources/sqlite/sqlite.lisp b/src/sources/sqlite/sqlite.lisp
index 44fa4fc..f6803ab 100644
--- a/src/sources/sqlite/sqlite.lisp
+++ b/src/sources/sqlite/sqlite.lisp
@@ -116,7 +116,8 @@
             (list-all-columns schema
                               :db *sqlite-db*
                               :including including
-                              :excluding excluding)
+                              :excluding excluding
+                              :db-has-sequences (has-sequences conn))
 
             (when create-indexes
               (list-all-indexes schema :db *sqlite-db*))