@@ -189,10 +189,11 @@
 			"-list-servers"
 			;; mist queries
 			"-list-disks"
 			"-list-targets"
 			"-list-db-targets"
+			"-show-runconfig"
 			;; queries
 			"-test-paths" ;; get path(s) to a test, ordered by youngest first
 
 			"-runall"    ;; run all tests
 			"-remove-runs"
@@ -349,10 +350,14 @@
       (for-each (lambda (x)
 		  (print "[" x "]"))
 		targets)
       (set! *didsomething* #t)))
 
+(if (args:get-arg "-show-runconfig")
+    (begin
+      (pp (hash-table->alist (open-run-close setup-env-defaults #f "runconfigs.config" #f #f change-env: #f)))
+      (set! *didsomething* #t)))
 
 ;;======================================================================
 ;; Remove old run(s)
 ;;======================================================================