@@ -999,15 +999,16 @@
 	(let ((val (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
 	  (if val (print val))))
 
        ;; print just a section if only -section
 
-       ((not (args:get-arg "-dumpmode"))
+       ((equal? (args:get-arg "-dumpmode") "sexp")
 	(pp (hash-table->alist data)))
-       ((string=? (args:get-arg "-dumpmode") "json")
+       ((equal? (args:get-arg "-dumpmode") "json")
 	(json-write data))
-       ((string=? (args:get-arg "-dumpmode") "ini")
+       ((or (not (args:get-arg "-dumpmode"))
+	    (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)