Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -98,20 +98,21 @@
     (if (and target runname)
 	(begin
 	  (launch:setup)
 	  (set! keys (rmt:get-keys))))
     (set! tsname  (common:get-testsuite-name))
-    (print "TCMT: for testsuite=" tsname " found runname=" runname " and target=" target " and successfully ran launch:setup")
+    (print "TCMT: for testsuite=" tsname " found runname=" runname ", target=" target ", keys=" keys " and successfully ran launch:setup.")
     (let loop ()
       (handle-exceptions
        exn
        ;; (print "Process done.")
        (begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
        (let-values (((pidres exittype exitstatus)
 		     (process-wait pid #t)))
 	 (if (and keys
-		  (not run-ids))
+		  (or (not run-ids)
+		      (null? run-ids)))
 	     (let* ((runs (rmt:get-runs-by-patt keys
 						runname 
 						target
 						#f ;; offset
 						#f ;; limit