Index: main/xbase.lisp
===================================================================
--- main/xbase.lisp	(revision main,6)
+++ main/xbase.lisp	(revision main,7)
@@ -210,9 +210,10 @@
   (multiple-value-bind (db-name table-name) (split-name filename)
     (let ((recs (import-dbf filename table-name)))
-      (format t "~A;~%~%~%~%"
+      (format t "BEGIN;~%~%~%~%~A;~%~%~%~%"
               (slot-value (gethash 'import-struct *dbfs*) 'sql-create))
       (dolist (rec recs)
         (unless (/= (slot-value rec '%deleted) 32)
-          (format t "~A;~%~%" (sql-insert rec)))))))
+          (format t "~A;~%~%" (sql-insert rec))))
+      (format t "~%~%COMMIT;~%"))))
 
 (defun main ()