Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -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))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -75,10 +75,11 @@
 			"-itempatt"
 			"-setlog"
 			"-runstep"
 			"-logpro"
 			"-remove-run"
+			"-m"
 			) 
 		 (list  "-h"
 		        "-force"
 		        "-xterm"
 		        "-showkeys"

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -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)) "/"))

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -1,5 +1,6 @@
 # run some tests
 
 runall :
-	megatest -runall :sysname ubuntu :fsname nfs :datapath none :runname `date +%GWW%V.%u`
+	cd ../;make 
+	../megatest -runall :sysname ubuntu :fsname nfs :datapath none :runname `date +%GWW%V.%u` -m "This is a comment specific to a run"