@@ -801,11 +801,11 @@
 ;;======================================================================
 
 (if (args:get-arg "-list-targets")
     (if (launch:setup)
         (let ((targets (common:get-runconfig-targets)))
-          (debug:print 1 *default-log-port* "Found "(length targets) " targets")
+          ;; (debug:print 1 *default-log-port* "Found "(length targets) " targets")
           (case (string->symbol (or (args:get-arg "-dumpmode") "alist"))
             ((alist)
              (for-each (lambda (x)
                          ;; (print "[" x "]"))
                          (print x))