Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2528,10 +2528,11 @@
 ;; ;;
 (define (db:test-set-state-status dbstruct run-id test-id newstate newstatus newcomment)
   (db:with-db
    dbstruct
    ;; run-id
+   #f
    #t
    (lambda (db)
      (cond
       ((and newstate newstatus newcomment)
        (sqlite3:execute db "UPDATE tests SET state=?,status=?,comment=? WHERE id=?;" newstate newstatus newcomment ;; (sdb:qry 'getid newcomment)