@@ -8,11 +8,11 @@
 ;;  PURPOSE.
 
 ;; (include "common.scm")
 ;; (include "megatest-version.scm")
 
-(use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 format readline apropos json) ;; (srfi 18) extras)
+(use sqlite3 srfi-1 posix regex regex-case srfi-69 base64 format readline apropos json http-client) ;; (srfi 18) extras)
 (import (prefix sqlite3 sqlite3:))
 (import (prefix base64 base64:))
 
 ;; (use zmq)
 
@@ -33,12 +33,13 @@
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
 
 ;; (use trace dot-locking)
-;; (trace
-;;  tests:match)
+;;  (trace
+;;   tests:match
+;;   runs:run-tests)
 ;;  db:teststep-set-status!
 ;;  db:open-test-db-by-test-id
 ;;  db:test-get-rundir-from-test-id
 ;;  cdb:tests-register-test
 ;;  cdb:tests-update-uname-host
@@ -622,12 +623,11 @@
    "run a test" 
    (lambda (target runname keys keynames keyvallst)
      (runs:run-tests target
 		     runname
 		     (args:get-arg "-runtests")
-		     (or (args:get-arg "-testpatt")
-			 (args:get-arg "-runtests"))
+		     (args:get-arg "-runtests")
 		     user
 		     args:arg-hash))))
 
 ;;======================================================================
 ;; Rollup into a run
@@ -1056,10 +1056,12 @@
       (set! *didsomething* #t)))
 
 ;;======================================================================
 ;; Exit and clean up
 ;;======================================================================
+
+(if *runremote* (close-all-connections!))
 
 ;; this is the socket if we are a client
 ;; (if (and *runremote*
 ;; 	 (socket? *runremote*))
 ;;     (close-socket *runremote*))