@@ -902,11 +902,12 @@
        ((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)))
+      (pop-directory)
+      (set! *time-to-exit* #t)))
 
 (if (args:get-arg "-show-cmdinfo")
     (if (or (args:get-arg ":value")(getenv "MT_CMDINFO"))
 	(let ((data (common:read-encoded-string (or (args:get-arg ":value")(getenv "MT_CMDINFO")))))
 	  (if (equal? (args:get-arg "-dumpmode") "json")