Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1356,11 +1356,11 @@
 			(runs:queue-next-reg tal reg reglen regfull)
 			reruns))))
 		  ;; (loop (car tal)(cdr tal) reg reruns))))
 
 	(runs:incremental-print-results run-id)
-	(debug:print 1 *default-log-port* "TOP OF LOOP => "
+	(debug:print 4 *default-log-port* "TOP OF LOOP => "
 		     "test-name: " test-name
 		     "\n  test-record  " test-record
 		     "\n  hed:         " hed
 		     "\n  itemdat:     " itemdat
 		     "\n  items:       " items