@@ -840,11 +840,12 @@
 			   (setenv "MT_RUN_AREA_HOME" *toppath*)
 			   (if key-vals
 			       (for-each (lambda (kt)
 					   (setenv (car kt) (cadr kt)))
 					 key-vals))
-			   (read-config (conc *toppath* "/runconfigs.config") #f #t sections: sections))))
+			   ;; (read-config (conc *toppath* "/runconfigs.config") #f #t sections: sections))))
+                           (runconfig:read (conc *toppath* "/runconfigs.config") target #f))))
 	  (if (and rundir ;; have all needed variabless
 		   (directory-exists? rundir)
 		   (file-write-access? rundir))
 	      (begin
 		(configf:write-alist data cfgf)
@@ -862,16 +863,17 @@
 	 ((and (args:get-arg "-section")
 	       (args:get-arg "-var"))
 	  (let ((val (or (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))
 			 (configf:lookup data "default" (args:get-arg "-var")))))
 	    (if val (print val))))
-	 ((not (args:get-arg "-dumpmode"))
+	 ((or (not (args:get-arg "-dumpmode"))
+              (string=? (args:get-arg "-dumpmode") "ini"))
+	  (configf:config->ini data))
+	 ((string=? (args:get-arg "-dumpmode") "sexp")
 	  (pp (hash-table->alist data)))
 	 ((string=? (args:get-arg "-dumpmode") "json")
 	  (json-write data))
-	 ((string=? (args:get-arg "-dumpmode") "ini")
-	  (configf:config->ini data))
 	 (else
 	  (debug:print-error 0 *default-log-port* "-dumpmode of " (args:get-arg "-dumpmode") " not recognised")))
 	(set! *didsomething* #t))
       (pop-directory)))