Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -20,13 +20,15 @@
 
 (declare (unit dcommon))
 
 (declare (uses gutils))
 (declare (uses db))
+(declare (uses dbmod))
 (declare (uses commonmod))
 (declare (uses configfmod))
 (declare (uses rmtmod))
+(declare (uses testsmod))
 
 (use format)
 (require-library iup)
 (import (prefix iup iup:))
 (use canvas-draw)
@@ -34,10 +36,12 @@
 (use regex typed-records matchable)
 
 (import commonmod
 	configfmod
 	rmtmod
+        testsmod
+        dbmod
 	debugprint)
 
 (include "megatest-version.scm")
 (include "common_records.scm")
 (include "db_records.scm")

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -2009,11 +2009,12 @@
 						 orig-cmdline)))))
 			     (debug:print 0 *default-log-port* "ORIG: " orig-cmdline)
 			     (debug:print 0 *default-log-port* "NEW:  " newcmdline)
 			     (system newcmdline)))
 			 run-specs))
-	     (handle-run-requests target runname keys keyvals need-clean))))))
+	     (handle-run-requests target runname keys keyvals need-clean))))
+      (set! *didsomething* #t)))
 
 ;;======================================================================
 ;; run one test
 ;;======================================================================