@@ -217,14 +217,16 @@
 	 (task-key           (conc (hash-table->alist flags) " " (get-host-name) " " (current-process-id)))
 	 (tasks-db           (tasks:open-db)))
 
     (set-signal-handler! signal/int
 			 (lambda (signum)
+			   (signal-mask! signum)
 			   (let ((tdb (tasks:open-db)))
 			     (tasks:set-state-given-param-key tdb task-key "killed")
+			     ;; (sqlite3:interrupt! tdb) ;; seems silly?
 			     (sqlite3:finalize! tdb))
-			   (print "Killed by sigint. Exiting")
+			   (print "Killed by signal " signum ". Exiting")
 			   (exit)))
 
     ;; register this run in monitor.db
     (tasks:add tasks-db "run-tests" user target runname test-patts task-key) ;; params)
     (tasks:set-state-given-param-key tasks-db task-key "running")