Index: megatest.config
==================================================================
--- megatest.config
+++ megatest.config
@@ -7,12 +7,7 @@
 ext-tests ext-tests
 
 [contours]
 #     mode-patt/tag-expr
 quick QUICKPATT/quick
-# full  MAXPATT/long QUICKPATT/quick
+full  MAXPATT/all QUICKPATT/quick
 
-[runtypes]
-#runtype areapatt:tag-expr/mode-patt/testpatt apatt2:texpr2/mpatt2/tpatt2
-smoke smoke:SMOKEPATT
-fast  smoke,fast:SMOKEPATT,FASTPATT
-stress %:%

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -279,12 +279,12 @@
 						    #f)))
 				    (if (or pmeta smeta)
 					(list meta value)
 					'())))
 				(filter cdr args-data)))))
-    (print  "Alldat: " alldat
-	    " args-data: " args-data)
+;; (print  "Alldat: " alldat
+;;         " args-data: " args-data)
     (add-z-card
      (apply construct-sdat alldat))))
 
 (define (simple-setup start-dir-in)
   (let* ((start-dir (or start-dir-in "."))

Index: rungen.config
==================================================================
--- rungen.config
+++ rungen.config
@@ -3,5 +3,16 @@
 # script: script is called with unix seconds as last parameter (other parameters are preserved)
 #
 # contour:sensetype runname params
 quick:file          auto    *.scm
 quick:script        auto    checkfossil.sh v1.63
+
+# field          allowed values
+# -----          --------------
+# minute         0-59
+# hour           0-23
+# day of month   1-31
+# month          1-12 (or names, see below)
+# day of week    0-7 (0 or 7 is Sun, or use names)
+
+# every friday at midnight run all
+all:scheduled       auto    0 0 0 0 5

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1976,11 +1976,11 @@
   (let* ((tagdata (rmt:get-tests-tags))
          (res     '())) ;; list of tests that match one or more tags
     (for-each
      (lambda (tag)
        (if (patt-list-match tag tagpatt)
-           (set! res (append (hash-table-ref tagdata tag)))))
+           (set! res (append (hash-table-ref tagdata tag) res))))
      (hash-table-keys tagdata))
     res))
     
 
 ;; Update test_meta for all tests

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -394,9 +394,9 @@
   (let ((tmo (configf:lookup  *configdat* "server" "timeout")))
     (if (and (string? tmo)
 	     (string->number tmo))
 	(* 60 60 (string->number tmo))
 	;; (* 3 24 60 60) ;; default to three days
-	(* 60 1)         ;; default to one minute
+	(* 60 60 1)         ;; default to one hour
 	;; (* 60 60 25)      ;; default to 25 hours
 	)))