Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -755,31 +755,31 @@
 	       (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"))
-         (db-contour (db:get-value-by-header row header "contour"))
+               (db-contour (db:get-value-by-header row header "contour"))
 	       (contour    (if (args:get-arg "-prepend-contour") 
                                  (if (and db-contour (not (equal? db-contour ""))  (string? db-contour )) 
                                            (begin 
                                             (debug:print-info 10 *default-log-port*  "db-contour" db-contour) 
  						db-contour)
 					    (args:get-arg "-contour"))))
-         (run-tag (if (args:get-arg "-run-tag")
+               (run-tag (if (args:get-arg "-run-tag")
                             (args:get-arg "-run-tag")
 									""))
-         (last-update (db:get-value-by-header row header "last_update"))
+               (last-update (db:get-value-by-header row header "last_update"))
 	       (keytarg    (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
 	       			(conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
+               (base-target      (rmt:get-target run-id))
 	       (target     (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target")) 
-	       			(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id)))                 ;; e.g. v1.63/a3e1/ubuntu
+	       			(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) base-target) base-target))                 ;; e.g. v1.63/a3e1/ubuntu
 	       (spec-id    (pgdb:get-ttype dbh keytarg))
 	       (publish-time (if (args:get-arg "-cp-eventtime-to-publishtime")
                             event-time
                            (current-seconds))) 
-               (foo (print spec-id " " target " " run-name " " area-id))  
-	       (new-run-id (pgdb:get-run-id dbh spec-id target run-name area-id)))
+	       (new-run-id (if (and run-name base-target) (pgdb:get-run-id dbh spec-id target run-name area-id) #f)))
          (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)
 		;; ensure key fields are up to date
      ;; if last_update == pgdb_last_update do not update smallest-last-update-time  
@@ -794,11 +794,11 @@
      (debug:print-info 4 *default-log-port* "Working on run-id " run-id " pgdb-id "  new-run-id )
      (if (not (equal? run-tag ""))
       (task:add-run-tag dbh new-run-id run-tag))
 		new-run-id) 
       
-	      (if (equal? state "deleted")
+	      (if (or (not state) (equal? state "deleted"))
           (begin 
           (debug:print-info 1 *default-log-port*  "Warning: Run with id " run-id " was created after previous sync and deleted before the sync") #f)
           (if (handle-exceptions
 		        exn
 		        (begin (print-call-chain)