Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -672,11 +672,11 @@
                       (or (procedure? items)(eq? items 'have-procedure))))
                   waitons))
 
 
          )
-    (debug:print-info 1 *default-log-port* "START OF INNER COND #2 "
+    (debug:print-info 4 *default-log-port* "START OF INNER COND #2 "
 		      "\n can-run-more:    " can-run-more
 		      "\n testname:        " hed
 		      "\n prereqs-not-met: " (runs:pretty-string prereqs-not-met)
 		      "\n non-completed:   " (runs:pretty-string non-completed) 
 		      "\n prereq-fails:    " (runs:pretty-string prereq-fails)
@@ -1366,11 +1366,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