Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -4174,11 +4174,11 @@
 				(delete-duplicates
 				 (cons testname (hash-table-ref/default res tag '())))))
 	     tags)))
 	db
 	"SELECT testname,tags FROM test_meta")
-       res))))
+       (hash-table->alist res)))))
 
 ;; read the record given a testname
 (define (db:testmeta-get-record dbstruct testname)
   (let ((res   #f))
     (db:with-db

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1377,11 +1377,13 @@
        (if (null? remargs)
 	      (print "ERROR: missing data to send to trigger listeners")
 	      (let* ((msg       (car remargs))
                   (mtconfdat (simple-setup (args:get-arg "-start-dir")))
                   (mtconf    (car mtconfdat))
-                  (time-out  (or (string->number (args:get-arg "-time-out")) 5))
+                  (time-out  (if (args:get-arg "-time-out")
+                                 (string->number (args:get-arg "-time-out")) 
+                               5))
                   (listeners (configf:get-section mtconf "listeners"))
                   (user-info  (user-information (current-user-id)))
                   (prev-seen (make-hash-table))) ;; catch duplicates
              (if user-info
               (begin

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -829,18 +829,19 @@
 				                         (s:td  item-name 'class "test" )
                                                            (map (lambda (run)
                                                                (let* ((run-test (hash-table-ref/default item-hash item-name  #f))
                                                                       (run-id (db:get-value-by-header run header "id"))
                                                                       (result (hash-table-ref/default run-test run-id "n/a"))
+                                                                      (relative-path (get-relative-path)) 
                                                                       (status (if (string? result)
-										result
-										(car result)))
+									                                                            	result
+										                                                            (car result)))
                                                                         (link (if (string? result)
-										result
+										                                                            result
                                                                                 (if (equal? flag #t) 
                                                                                 (s:a (car result) 'href (conc "./test_log?runid=" run-id "&testname="  item-name ))
-										(s:a (car result) 'href (cadr result))))))
+																																								(s:a (car result) 'href (cadr result))))))
                                                                        (s:td  link 'class status)))
                                                                 runs))))
                                                         res))
                                                    item-keys)))
                                test-list))))))