diff --git a/src/utils/transforms.lisp b/src/utils/transforms.lisp
index f3ed6f3..dde2489 100644
--- a/src/utils/transforms.lisp
+++ b/src/utils/transforms.lisp
@@ -193,14 +193,15 @@
    values."
   (declare (type (or null string fixnum) integer-string))
   (when integer-string
-    (typecase integer-string
-      (integer (princ-to-string integer-string))
-      (string  (handler-case
-                   (parse-integer integer-string :start 0)
-                 (condition (c)
-                   (declare (ignore c))
-                   (parse-integer integer-string :start 1
-                                  :end (- (length integer-string) 1))))))))
+    (princ-to-string
+     (typecase integer-string
+       (integer integer-string)
+       (string  (handler-case
+                    (parse-integer integer-string :start 0)
+                  (condition (c)
+                    (declare (ignore c))
+                    (parse-integer integer-string :start 1
+                                   :end (- (length integer-string) 1)))))))))
 
 (defun float-to-string (float)
   "Transform a Common Lisp float value into its string representation as
diff --git a/test/sqlite.load b/test/sqlite.load
index c884c9e..38c7e15 100644
--- a/test/sqlite.load
+++ b/test/sqlite.load
@@ -11,6 +11,7 @@ load database
     $$ create schema if not exists sqlite; $$
 
   cast column character.f1 to text drop typemod,
-       column appointments.time to timestamptz drop default
+       column appointments.time to timestamptz drop default,
+       type intege to integer
 
   set work_mem to '16MB', maintenance_work_mem to '512 MB', search_path to 'sqlite';
\ No newline at end of file
diff --git a/test/sqlite/sqlite.db b/test/sqlite/sqlite.db
index 6874be9..f643361 100644
Binary files a/test/sqlite/sqlite.db and b/test/sqlite/sqlite.db differ