Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1186,11 +1186,11 @@
 			 (tal (cdr launchers)))
 		(let ((patt      (car hed))
 		      (host-type (cadr hed)))
 		  (if (tests:match patt testname itempath)
 		      (begin
-			(debug:print-info 0 "Have flexi-launcher match for " testname "/" itempath " = " host-type)
+			(debug:print-info 2 "Have flexi-launcher match for " testname "/" itempath " = " host-type)
 			(let ((launcher (configf:lookup configdat "host-types" host-type)))
 			  (if launcher
 			      launcher
 			      (begin
 				(debug:print-info 0 "WARNING: no launcher found for host-type " host-type)