@@ -94,11 +94,11 @@
     (if valid-values
 	(if (member item valid-values)
 	    item #f)
 	item)))
 
-(define (teststep-set-status! db run-id test-name teststep-name state-in status-in itemdat)
+(define (teststep-set-status! db run-id test-name teststep-name state-in status-in itemdat comment)
   ;; (print "run-id: " run-id " test-name: " test-name)
   (let* ((state     (check-valid-items "state" state-in))
 	 (status    (check-valid-items "status" status-in))
 	 (item-path (item-list->path itemdat))
 	 (testdat   (runs:get-test-info db run-id test-name item-path)))
@@ -108,12 +108,12 @@
 	(print "WARNING: Invalid " (if status "status" "state")
 	       " value \"" (if status status-in state-in) "\", update your validstates section in megatest.config"))
     (if testdat
 	(let ((test-id (test:get-id testdat)))
 	  (sqlite3:execute db 
-			"INSERT OR REPLACE into test_steps (test_id,stepname,state,status,event_time) VALUES(?,?,?,?,strftime('%s','now'));"
-			test-id teststep-name state status))
+			"INSERT OR REPLACE into test_steps (test_id,stepname,state,status,event_time,comment) VALUES(?,?,?,?,strftime('%s','now'),?);"
+			test-id teststep-name state status (if comment comment "")))
 	(print "ERROR: Can't update " test-name " for run " run-id " -> no such test in db"))))
 
 (define (test-get-kill-request db run-id test-name itemdat)
   (let* ((item-path (item-list->path itemdat))
 	 (testdat   (runs:get-test-info db run-id test-name item-path)))