@@ -220,11 +220,11 @@
 	(debug:print 0 "WARNING: You do not have a run config file: " runconfigf))
     
     ;; look up all tests matching the comma separated list of globs in
     ;; test-patts (using % as wildcard)
 
-    (set! test-names (tests:get-valid-tests *toppath* test-names))
+    (set! test-names (append (tests:get-valid-tests *toppath* test-patts) test-names))
     (set! test-names (delete-duplicates test-names))
 
     (debug:print-info 0 "test names " test-names)
 
     ;; on the first pass or call to run-tests set FAILS to NOT_STARTED if
@@ -342,11 +342,12 @@
     ;; NB// Should expand items here and then insert into the run queue.
   (debug:print 5 "test-records: " test-records ", keyvallst: " keyvallst " flags: " (hash-table->alist flags))
   (let ((sorted-test-names (tests:sort-by-priority-and-waiton test-records))
 	(test-registery    (make-hash-table))
 	(num-retries        0)
-	(max-retries       (config-lookup *configdat* "setup" "maxretries")))
+	(max-retries       (config-lookup *configdat* "setup" "maxretries"))
+	(dotfilep          (if (args:get-arg "-dotfile")(open-output-file (args:get-arg "-dotfile")) #f)))
     (set! max-retries (if (and max-retries (string->number max-retries))(string->number max-retries) 100))
     (if (not (null? sorted-test-names))
 	(let loop ((hed         (car sorted-test-names))
 		   (tal         (cdr sorted-test-names))
 		   (reruns      '()))
@@ -429,11 +430,17 @@
 		  (loop (car newtal)(cdr newtal) reruns))
 		 ((and have-resources
 		       (or (null? prereqs-not-met)
 			   (and (eq? testmode 'toplevel)
 				(null? non-completed))))
-		  (run:test run-id runname keyvallst test-record flags #f)
+		  (if dotfilep
+		      (with-output-to-port (lambda ()
+					     (for-each (lambda (w)
+							 (print " " w " -> " test-name ";"))
+						       waitons)
+					     (print " " test-name ";")))
+		      (run:test run-id runname keyvallst test-record flags #f))
 		  (thread-sleep! *global-delta*)
 		  (if (not (null? tal))
 		      (loop (car tal)(cdr tal) reruns)))
 		 (else ;; must be we have unmet prerequisites
 		    (debug:print 4 "FAILS: " fails)