@@ -1707,11 +1707,11 @@
 	      (tests:summarize-items run-id test-id test-name #t)) ;; do force here
 	  (if (args:get-arg "-runstep")
 	      (if (null? remargs)
 		  (begin
 		    (debug:print-error 0 *default-log-port* "nothing specified to run!")
-		    (if db (sqlite3:finalize! db))
+		    (if db (dbi:close db))
 		    (exit 6))
 		  (let* ((stepname   (args:get-arg "-runstep"))
 			 (logprofile (args:get-arg "-logpro"))
 			 (logfile    (conc stepname ".log"))
 			 (cmd        (if (null? remargs) #f (car remargs)))
@@ -1768,17 +1768,17 @@
 		(if (and (args:get-arg "-test-status")
 			 (or (not state)
 			     (not status)))
 		    (begin
 		      (debug:print-error 0 *default-log-port* "You must specify :state and :status with every call to -test-status\n" help)
-		      (if (sqlite3:database? db)(sqlite3:finalize! db))
+		      (if (dbi:database? db)(dbi:close db))
 		      (exit 6)))
 		(let* ((msg    (args:get-arg "-m"))
 		       (numoth (length (hash-table-keys otherdata))))
 		  ;; Convert to rpc inside the tests:test-set-status! call, not here
 		  (tests:test-set-status! run-id test-id state newstatus msg otherdata work-area: work-area))))
-	  (if (sqlite3:database? db)(sqlite3:finalize! db))
+	  (if (dbi:database? db)(dbi:close db))
 	  (set! *didsomething* #t))))
 
 ;;======================================================================
 ;; Various helper commands can go below here
 ;;======================================================================
@@ -1791,11 +1791,11 @@
 	  (begin
 	    (debug:print 0 *default-log-port* "Failed to setup, exiting")
 	    (exit 1)))
       (set! keys (rmt:get-keys)) ;;  db))
       (debug:print 1 *default-log-port* "Keys: " (string-intersperse keys ", "))
-      (if (sqlite3:database? db)(sqlite3:finalize! db))
+      (if (dbi:database? db)(dbi:close db))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-gui")
     (begin
       (debug:print 0 *default-log-port* "Look at the dashboard for now")