@@ -225,10 +225,15 @@
 
 (define (tasks:remove-monitor-record db)
   (sqlite3:execute db "DELETE FROM monitors WHERE pid=? AND hostname=?;"
 		   (current-process-id)
 		   (get-host-name)))
+
+(define (tasks:set-state db task-id state)
+  (sqlite3:execute db "UPDATE tasks_queue SET state=? WHERE id=?;" 
+		   state 
+		   task-id))
 
 (define (tasks:start-run db task)
   ;; Starting run #(3 run matt reset ubuntu/afs/tmp ww44 % % 1319368208.0 1319386680.0)
   ;; Starting run #(5 run matt reset centos/nfs/nada ww42 all all 1319371306.0 1319386801.0)
   (print "Starting run " task)
@@ -238,6 +243,7 @@
 		  (tasks:task-get-name   task)
 		  (tasks:task-get-test   task)
 		  (tasks:task-get-item   task)
 		  (tasks:task-get-owner  task)
 		  (make-hash-table))
+  (tasks:set-state db (tasks:task-get-id task) "waiting")
   )