Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1558,13 +1558,13 @@
 	       (begin
 		 (case action
 		   ((remove-runs)
 		    (if (tasks:need-server run-id)(tasks:start-and-wait-for-server tdbdat run-id 10))
 		    ;; seek and kill in flight -runtests with % as testpatt here
-		    (if (equal? testpatt "%")
-			(tasks:kill-runner target run-name)
-			(debug:print 0 "not attempting to kill any run launcher processes as testpatt is " testpatt))
+		    ;; (if (equal? testpatt "%")
+		    (tasks:kill-runner target run-name testpatt)
+		    ;; (debug:print 0 "not attempting to kill any run launcher processes as testpatt is " testpatt))
 		    (debug:print 1 "Removing tests for run: " runkey " " (db:get-value-by-header run header "runname")))
 		   ((set-state-status)
 		    (if (tasks:need-server run-id)(tasks:start-and-wait-for-server tdbdat run-id 10))
 		    (debug:print 1 "Modifying state and staus for tests for run: " runkey " " (db:get-value-by-header run header "runname")))
 		   ((print-run)

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -723,11 +723,10 @@
       '()
       (sqlite3:first-row db "SELECT id,action,owner,state,target,name,testpatt,keylock,params WHERE
                                params LIKE ? AND state LIKE ? AND action LIKE ? AND testpatt LIKE ?;"
 			 param-key state-patt action-patt test-patt)))))
 
-
 (define (tasks:find-task-queue-records dbstruct target run-name test-patt state-patt action-patt)
   ;; (handle-exceptions
   ;;  exn
   ;;  '()
   ;;  (sqlite3:first-row
@@ -744,15 +743,15 @@
 
 ;; kill any runner processes (i.e. processes handling -runtests) that match target/runname
 ;; 
 ;; do a remote call to get the task queue info but do the killing as self here.
 ;;
-(define (tasks:kill-runner target run-name)
+(define (tasks:kill-runner target run-name testpatt)
   (let ((records    (rmt:tasks-find-task-queue-records target run-name "%" "running" "run-tests"))
 	(hostpid-rx (regexp "\\s+(\\w+)\\s+(\\d+)$"))) ;; host pid is at end of param string
     (if (null? records)
-	(debug:print 0 "No run launching processes found for " target " / " run-name)
+	(debug:print 0 "No run launching processes found for " target " / " run-name " with testpatt " (or testpatt "* no testpatt specified! *"))
 	(debug:print 0 "Found " (length records) " run(s) to kill."))
     (for-each 
      (lambda (record)
        (let* ((param-key (list-ref record 8))
 	      (match-dat (string-search hostpid-rx param-key)))

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -16,10 +16,11 @@
 testsort -event_time
 
 [misc]
 home #{shell readlink -f $MT_RUN_AREA_HOME}
 parent #{shell readlink -f $MT_RUN_AREA_HOME/..}
+testsuite #{shell basename $MT_RUN_AREA_HOME}
 
 [tests-paths]
 1 #{get misc parent}/simplerun/tests
 
 [setup]