@@ -873,10 +873,15 @@
 	(begin
 	  (debug:print-error 0 *default-log-port* "failed to find the top path to your Megatest area.")
           ;;(exit 1)
           #f
           ))
+    ;; if have -append-config then read and append here
+    (let ((cfname (args:get-arg "-append-config")))
+      (if (and cfname
+	       (file-read-access? cfname))
+	  (read-config cfname *configdat* #t))) ;; values are added to the hash, no need to do anything special.
     *toppath*))
 
 (define (get-best-disk confdat testconfig)
   (let* ((disks   (or (and testconfig (hash-table-ref/default testconfig "disks" #f))
 		      (hash-table-ref/default confdat "disks" #f)))