Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -97,10 +97,11 @@
 	(tsname  (common:get-testsuite-name)))
     (if (and target runname)
 	(begin
 	  (launch:setup)
 	  (set! keys (rmt:get-keys))))
+    (print "TCMT: for testsuite=" tsname " found runname=" runname " and target=" target " 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)))
@@ -107,12 +108,12 @@
        (let-values (((pidres exittype exitstatus)
 		     (process-wait pid #t)))
 	 (if (and keys
 		  (not run-ids))
 	     (let* ((runs (rmt:get-runs-by-patt keys
-						(args:get-arg "-runname")
-						(or (args:get-arg "-target")(args:get-arg "-reqtarg"))
+						runname 
+						target
 						#f ;; offset
 						#f ;; limit
 						#f ;; fields
 						0  ;; last-update
 						))