Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2254,11 +2254,11 @@
 (define (db:get-run-info dbstruct run-id)
   ;;(if (hash-table-ref/default *run-info-cache* run-id #f)
   ;;    (hash-table-ref *run-info-cache* run-id)
   (let* ((res       (vector #f #f #f #f))
 	 (keys      (db:get-keys dbstruct))
-	 (remfields (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count")) ;;  "area_id"))
+	 (remfields (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count" "contour")) ;;  "area_id"))
 	 (header    (append keys remfields))
 	 (keystr    (conc (keys->keystr keys) ","
 			  (string-intersperse remfields ","))))
     (debug:print-info 11 *default-log-port* "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
     (db:with-db

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -286,12 +286,11 @@
 			"-source-db"
 
                         "-src-target"
                         "-src-runname"
                         "-diff-email"
-			"-sync-to"
-			"-prefix-target"			
+			"-sync-to"			
 			"-pgsync"
                         "-diff-html"
 			)
  		 (list  "-h" "-help" "--help"
 			"-manual"
@@ -311,10 +310,11 @@
 			"-rerun-all"
 			"-clean-cache"
 			"-no-cache"
 			"-cache-db"
                         "-use-db-cache"
+                        "-prepend-contour"
 			;; misc
 			"-repl"
 			"-lock"
 			"-unlock"
 			"-list-servers"

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -614,25 +614,29 @@
 (define (tasks:run-id->mtpg-run-id dbh cached-info run-id)
   (let* ((runs-ht (hash-table-ref cached-info 'runs))
 	 (runinf  (hash-table-ref/default runs-ht run-id #f)))
     (if runinf
 	runinf ;; already cached
-	(let* ((keytarg    (string-intersperse (rmt:get-keys) "/")) ;; e.g. version/iteration/platform
-	       (spec-id    (pgdb:get-ttype dbh keytarg))
-	       (target     (if (and (args:get-arg "-sync-to") (args:get-arg "-prefix-target")) (set! target (conc (args:get-arg "-prefix-target") (rmt:get-target run-id))) (rmt:get-target run-id)))                 ;; e.g. v1.63/a3e1/ubuntu
-	       (run-dat    (rmt:get-run-info run-id))               ;; NOTE: get-run-info returns a vector < row header >
+	(let* ((run-dat    (rmt:get-run-info run-id))               ;; NOTE: get-run-info returns a vector < row header >
 	       (run-name   (rmt:get-run-name-from-id run-id))
-	       (new-run-id (pgdb:get-run-id dbh spec-id target run-name))
 	       (row        (db:get-rows run-dat))                   ;; yes, this returns a single row
 	       (header     (db:get-header run-dat))
 	       (state      (db:get-value-by-header row header "state "))
 	       (status     (db:get-value-by-header row header "status"))
 	       (owner      (db:get-value-by-header row header "owner"))
 	       (event-time (db:get-value-by-header row header "event_time"))
 	       (comment    (db:get-value-by-header row header "comment"))
 	       (fail-count (db:get-value-by-header row header "fail_count"))
 	       (pass-count (db:get-value-by-header row header "pass_count"))
+	       (contour    (db:get-value-by-header row header "contour"))
+	       (keytarg    (if (and (args:get-arg "-sync-to") (args:get-arg "-prepend-contour")) (conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
+	       (target     (if (and (args:get-arg "-sync-to") (args:get-arg "-prepend-contour")) (conc contour "/" (common:get-area-name) "/" (rmt:get-target run-id)) (rmt:get-target run-id)))                 ;; e.g. v1.63/a3e1/ubuntu
+	       (spec-id    (pgdb:get-ttype dbh keytarg))
+	       (new-run-id (pgdb:get-run-id dbh spec-id target run-name))
+
+
+
 	       ;; (area-id    (db:get-value-by-header row header "area_id)"))
 	       )
 	  (if new-run-id
 	      (begin ;; let ((run-record (pgdb:get-run-info dbh new-run-id))
 		(hash-table-set! runs-ht run-id new-run-id)