Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -1002,10 +1002,11 @@
 				      (cdr fullcmd)))))
       (if (not launchwait) ;; give the OS a little time to allow the process to start
 	  (thread-sleep! 0.01))
       (with-output-to-file "mt_launch.log"
 	(lambda ()
+	  (print "LAUNCHCMD: " (string-intersperse fullcmd " "))
 	  (if (list? launch-results)
 	      (apply print launch-results)
 	      (print "NOTE: launched \"" fullcmd "\"\n  but did not wait for it to proceed. Add the following to megatest.config \n[setup]\nlaunchwait yes\n  if you have problems with this"))
 	  #:append))
       (debug:print 2 "Launching completed, updating db")

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -273,10 +273,11 @@
 			"-repl"
 			"-lock"
 			"-unlock"
 			"-list-servers"
                         "-run-wait"      ;; wait on a run to complete (i.e. no RUNNING)
+			"-local"         ;; run some commands using local db access
 
 			;; misc queries
 			"-list-disks"
 			"-list-targets"
 			"-list-db-targets"
@@ -936,11 +937,11 @@
 ;; NOTE: list-runs and list-db-targets operate on local db!!!
 ;;
 (if (or (args:get-arg "-list-runs")
 	(args:get-arg "-list-db-targets"))
     (if (launch:setup-for-run)
-	(let* ((dbstruct    (make-dbr:dbstruct path: *toppath* local: #t))
+	(let* ((dbstruct    (make-dbr:dbstruct path: *toppath* local: (args:get-arg "-local")))
 	       (runpatt     (args:get-arg "-list-runs"))
 	       (testpatt    (common:args-get-testpatt #f))
 	       ;; (if (args:get-arg "-testpatt") 
 	       ;;  	        (args:get-arg "-testpatt") 
 	       ;;  	        "%"))
@@ -1609,11 +1610,11 @@
 ;; fakeout readline
 
 (if (or (args:get-arg "-repl")
 	(args:get-arg "-load"))
     (let* ((toppath (launch:setup-for-run))
-	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
+	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath local: (args:get-arg "-local")) #f)))
       (if dbstruct
 	  (begin
 	    (set! *db* dbstruct)
 	    (set! *client-non-blocking-mode* #t)
 	    (import extras) ;; might not be needed