Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -1015,17 +1015,17 @@
           (exit 1)))
      (if (and (not target)  run-name)
        (begin
 					(print "Error: Provide target")
           (exit 1)))
-    (print "123")
-    (exit 1) 
+    ;(print "123")
+    ;(exit 1) 
     (for-each (lambda (dtype)
 		(hash-table-set! cached-info dtype (make-hash-table)))
 	      '(runs targets tests steps data))
     (hash-table-set! cached-info 'start start) ;; when done we'll set sync times to this
-    (print "here")
+    ;(print "here")
     (if area-info
 	(let* ((last-sync-time (vector-ref area-info 3))
 	       (smallest-last-update-time  (make-hash-table))
          (changed      (if (and target run-name)
                             (rmt:get-run-record-ids target run-name (rmt:get-keys) test-patt)
@@ -1038,11 +1038,11 @@
          (area-tag    (if (args:get-arg "-area-tag") 
                                  (args:get-arg "-area-tag")
                                  (if (args:get-arg "-area") 
                                    (args:get-arg "-area") 
                                    ""))))
-          (print "here2")
+          ;(print "here2")
            (if (and (equal? area-tag "") (not (pgdb:is-area-taged dbh (vector-ref area-info 0))))
             (set! area-tag *default-area-tag*)) 
            (if (not (equal? area-tag "")) 
              (task:add-area-tag dbh area-info area-tag)) 
 	  (if (or (not (null? test-ids)) (not (null? run-ids)))
@@ -1055,15 +1055,15 @@
                 (tasks:sync-test-steps dbh cached-info test-step-ids smallest-last-update-time)
 								(debug:print-info 0 *default-log-port*  "syncing test data")
                 (tasks:sync-test-gen-data dbh cached-info test-data-ids smallest-last-update-time)
                 (print "----------done---------------")))
      (let*  ((smallest-time (hash-table-ref/default smallest-last-update-time "smallest-time" #f)))
-     (print "smallest-time :" smallest-time  " last-sync-time " last-sync-time)
+     (debug:print-info 0 "smallest-time :" smallest-time  " last-sync-time " last-sync-time)
     (if (not (and target run-name)) 
 	  (if (or (and smallest-time (> smallest-time last-sync-time)) (and smallest-time (eq? last-sync-time 0)))
 				(pgdb:write-sync-time dbh area-info smallest-time))))) ;;this needs to be changed
 	(if (tasks:set-area dbh configdat)
 	    (tasks:sync-to-postgres configdat dest)
 	    (begin
 	      (debug:print 0 *default-log-port* "ERROR: unable to create an area record")
 	      #f)))))