diff --git a/src/sources/sqlite/sqlite-cast-rules.lisp b/src/sources/sqlite/sqlite-cast-rules.lisp
index 34f7dc2..2160c66 100644
--- a/src/sources/sqlite/sqlite-cast-rules.lisp
+++ b/src/sources/sqlite/sqlite-cast-rules.lisp
@@ -100,6 +100,8 @@
                         (or (uiop:string-prefix-p "CURRENT_TIMESTAMP" default)
                             (string= "CURRENT TIMESTAMP" default)))
                    :current-timestamp)
+                  ((and (stringp default) (string-equal "current_date" default))
+                   :current-date)
                   (t (column-default pgcol))))
 
       pgcol)))
diff --git a/test/sqlite/sqlite.db b/test/sqlite/sqlite.db
index f643361..ac00c76 100644
Binary files a/test/sqlite/sqlite.db and b/test/sqlite/sqlite.db differ