diff --git a/storage/storage.lisp b/storage/storage.lisp
index e7604f1..2f06e30 100644
--- a/storage/storage.lisp
+++ b/storage/storage.lisp
@@ -69,16 +69,17 @@
            (qx (dbi:execute qp args)))
       (dbi:fetch-all qx))))
 
-(defun do-sql (st spec)
+(defun xdo-sql (st spec)
   (multiple-value-bind (sql args) (sxql:yield spec)
     ;(print sql)
     (dbi:do-sql (conn st) sql args)))
 
-(defun xdo-sql (st spec)
+(defun do-sql (st spec)
   (multiple-value-bind (sql args) (sxql:yield spec)
     (let* ((conn (conn st))
-           (qu (dbi:execute (dbi:prepare conn sql) args)))
-      (dbi:free-query-resources qu)
+           (qp (dbi:prepare conn sql)))
+      (dbi:execute qp args)
+      (dbi:free-query-resources qp)
       (dbi:row-count conn))))
 
 (defun drop-table (st tn)