Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -774,10 +774,11 @@
 	       			(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
 	       (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)))
          (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