diff --git a/src/sources/sqlite/sqlite.lisp b/src/sources/sqlite/sqlite.lisp
index 577fd78..407a7db 100644
--- a/src/sources/sqlite/sqlite.lisp
+++ b/src/sources/sqlite/sqlite.lisp
@@ -73,9 +73,8 @@
                  (sqlite:finalize-statement statement)
                  (return rows))
           (condition (e)
-            (progn
-              (log-message :error "~a" e)
-              (pgstate-incf *state* (target sqlite) :errs 1))))))))
+            (log-message :error "~a" e)
+            (pgstate-incf *state* (target sqlite) :errs 1)))))))
 
 
 (defmethod copy-to-queue ((sqlite copy-sqlite) queue)