@@ -905,12 +905,14 @@
     (sqlite3:execute db "UPDATE runs SET state=? WHERE id=?;" newlockval run-id)
     (sqlite3:execute db "INSERT INTO access_log (user,accessed,args) VALUES(?,strftime('%s','now'),?);"
 		     user (conc newlockval " " run-id))
     (debug:print-info 1 "" newlockval " run number " run-id)))
 
-(define (db:set-run-status db run-id status)
-  (sqlite3:execute db "UPDATE runs SET status=? WHERE id=?;" status run-id))
+(define (db:set-run-status db run-id status #!key (msg #f))
+  (if msg
+      (sqlite3:execute db "UPDATE runs SET status=?,comment=? WHERE id=?;" status msg run-id)
+      (sqlite3:execute db "UPDATE runs SET status=? WHERE id=?;" status run-id)))
 
 (define (db:get-run-status db run-id)
   (let ((res "n/a"))
     (sqlite3:for-each-row 
      (lambda (status)