Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -460,12 +460,15 @@
 (define (configf:get-section cfgdat section)
   (hash-table-ref/default cfgdat section '()))
 
 (define (configf:set-section-var cfgdat section var val)
   (let ((sectdat (configf:get-section cfgdat section)))
-    (append (filter (lambda (x)(not (assoc var sectdat))) sectdat)
-	    (list var val))))
+    (hash-table-set! cfgdat section
+                     (config:assoc-safe-add sectdat var val))))
+
+    ;;(append (filter (lambda (x)(not (assoc var sectdat))) sectdat)
+    ;;	    (list var val))))
 
 (define (setup)
   (let* ((configf (find-config "megatest.config"))
 	 (config  (if configf (read-config configf #f #t) #f)))
     (if config

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -360,10 +360,12 @@
               (debug:print-info 0 *default-log-port* "Subrun command is \"" mt-cmd "\"")
               (set! ezsteps #t) ;; set the needed flag
 	      (set! ezstepslst (append (or ezstepslst '())
                                        (list (list "subrun" (conc "{subrun=true} " mt-cmd)))))
 	      (configf:set-section-var testconfig "logpro" "subrun" logpro) ;; append the logpro rules to the logpro section as stepname subrun
+              (if runarea (configf:set-section-var testconfig "setup" "submegatest" runarea))
+              (configf:write-alist testconfig "testconfig.subrun")
 	      ))
 
 	;; process the ezsteps
 	(if ezsteps
 	    (begin