@@ -348,11 +348,12 @@
       (hash-table-delete! args:arg-hash "-itempatt")))
 
 (on-exit (lambda ()
 	   (rmt:print-db-stats)
 	   (if *dbstruct-db* (db:close-all *dbstruct-db*))
-	   (if *megatest-db* (sqlite3:finalize! *megatest-db*))))
+	   (if *megatest-db* (sqlite3:finalize! *megatest-db*))
+	   (if *task-db*     (sqlite3:finalize! (vector-ref *task-db* 0)))))
 
 ;;======================================================================
 ;; Misc general calls
 ;;======================================================================