Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -233,11 +233,15 @@
 			    (args:get-arg "-itempatt")))
       (sqlite3:finalize! db)
       (set! *didsomething* #t)))))
 	  
 (if (args:get-arg "-remove-runs")
-    (remove-runs))
+    (general-run-call 
+     "-remove-runs"
+     "remove runs"
+     (lambda (db target runname keys keynames keyvallst)
+       (remove-runs))))
 
 ;;======================================================================
 ;; Query runs
 ;;======================================================================