@@ -106,10 +106,14 @@
 		 (n   0))
 	(if (equal? hed field)
 	    (vector-ref row n)
 	    (if (null? tal) #f (loop (car tal)(cdr tal)(+ n 1)))))))
 	    
+;;======================================================================
+;;  R U N S
+;;======================================================================
+
 (define (db-get-runs db runpatt . count)
   (let* ((res      '())
 	 (keys      (db-get-keys db))
 	 (remfields (list "id" "runname" "state" "status" "owner" "event_time"))
 	 (header    (append (map key:get-fieldname keys)
@@ -150,10 +154,13 @@
      db
      (conc "SELECT " keystr " FROM runs WHERE id=?;")
      run-id)
     (vector header res)))
 
+(define (db:set-comment-for-run db run-id comment)
+  (sqlite3:execute db "UPDATE runs SET comment=? WHERE id=?;" comment run-id))
+
 ;;======================================================================
 ;;  T E S T S
 ;;======================================================================
 
 (define (make-db:test)(make-vector 6))