@@ -218,10 +218,12 @@
 	       (items       (hash-table-ref/default test-conf "items" #f))
 	       (allitems    (item-assoc->item-list items))
 	       (run-id      (register-run db keys)) ;;  test-name)))
 	       (runconfigf  (conc  *toppath* "/runconfigs.config")))
 	  ;; (print "items: ")(pp allitems)
+	  (if (args:get-arg "-m")
+	      (db:set-comment-for-run db run-id (args:get-arg "-m")))
 	  (let loop ((itemdat (car allitems))
 		     (tal     (cdr allitems)))
 	    ;; (lambda (itemdat) ;;; ((ripeness "overripe") (temperature "cool") (season "summer"))
 	    (let* ((item-path     (item-list->path itemdat)) ;; (string-intersperse (map cadr itemdat) "/"))
 		   (new-test-path (string-intersperse (cons test-path (map cadr itemdat)) "/"))