Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -641,11 +641,11 @@
 	     (runname  (or (args:get-arg "-runname")
 			   (args:get-arg ":runname")))
 	     (fulldir  (conc linktree "/"
 			     target "/"
 			     runname)))
-	(debug:print-info 0 "Have -runtests with target=" target ", runname=" runname ", fulldir=" fulldir)
+	(debug:print-info 0 "Have -runtests with target=" target ", runname=" runname ", fulldir=" fulldir ", testpatt=" (or (args:get-arg "-testpatt") "%"))
 	(if (file-exists? linktree) ;; can't proceed without linktree
 	    (begin
 	      (if (not (file-exists? fulldir))
 		  (create-directory fulldir #t)) ;; need to protect with exception handler 
 	      (if (and target