@@ -1177,11 +1177,11 @@
 	     (runspatt   (or (args:get-arg "-runname")(args:get-arg ":runname")))
 	     (pathmod    (args:get-arg "-pathmod")))
 	     ;; (keyvalalist (keys->alist keys "%")))
 	 (debug:print 2 "Extract ods, outputfile: " outputfile " runspatt: " runspatt " keyvals: " keyvals)
 	 (db:extract-ods-file dbstruct outputfile keyvals (if runspatt runspatt "%") pathmod)
-	 (db:close-all dbstruct)
+	 (db:close-all dbstruct *area-dat*)
 	 (set! *didsomething* #t)))
      *area-dat*))
 
 ;;======================================================================
 ;; execute the test
@@ -1478,11 +1478,11 @@
 	       d))
 	    (current-input-port (make-gnu-readline-port "megatest> "))
 	    (if (args:get-arg "-repl")
 		(repl)
 		(load (args:get-arg "-load")))
-	    (db:close-all dbstruct))
+	    (db:close-all dbstruct *area-dat*))
 	  (exit))
       (set! *didsomething* #t)))
 
 ;;======================================================================
 ;; Wait on a run to complete