Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1,1101 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.6014)
+(define megatest-version 1.6015)
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -741,14 +741,20 @@
 ;;======================================================================
 
 (if (args:get-arg "-list-targets")
     (let ((targets (common:get-runconfig-targets)))
       (print "Found "(length targets) " targets")
-      (for-each (lambda (x)
-		  ;; (print "[" x "]"))
-		  (print x))
-		targets)
+      (case (string->symbol (or (args:get-arg "-dumpmode") "alist"))
+	((alist)
+	 (for-each (lambda (x)
+		     ;; (print "[" x "]"))
+		     (print x))
+		   targets))
+	((json)
+	 (json-write targets))
+	(else
+	 (debug:print 0 "ERROR: dump output format " (args:get-arg "-dumpmode") " not supported for -list-targets")))
       (set! *didsomething* #t)))
 
 (define (full-runconfigs-read)
   (let* ((keys   (rmt:get-keys))
 	 (target (common:args-get-target))
@@ -775,11 +781,11 @@
 	  (let ((val (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
 	    (if val (print val))))
 	 ((not (args:get-arg "-dumpmode"))
 	  (pp (hash-table->alist data)))
 	 ((string=? (args:get-arg "-dumpmode") "json")
-	(json-write data))
+	  (json-write data))
 	 (else
 	  (debug:print 0 "ERROR: -dumpmode of " (args:get-arg "-dumpmode") " not recognised")))
 	(set! *didsomething* #t))
       (pop-directory)))