@@ -161,10 +161,18 @@
 				  (if (runs:lownoise (conc "maxjobgroup " jobgroup) 60)
 				      (debug:print 1 "WARNING: number of jobs " num-running-in-jobgroup 
 						   " in jobgroup \"" jobgroup "\" exceeds limit of " job-group-limit))
 				  #t)
 				 (else #f))))
+	  ;; lets use the debugger eh?
+	  (debugger-start start: 15)
+	  (debugger-trace-var "runs:can-run-more-tests" "")
+	  (debugger-trace-var "can-not-run-more"         can-not-run-more)
+	  (debugger-trace-var "num-running"              num-running)
+	  (debugger-trace-var "num-running-in-jobgroup"  num-running-in-jobgroup)
+	  (debugger-trace-var "job-group-limit"          job-group-limit)
+	  (debugger-pauser)
 	  (list (not can-not-run-more) num-running num-running-in-jobgroup max-concurrent-jobs job-group-limit)))))
 
 
 ;;  test-names: Comma separated patterns same as test-patts but used in selection 
 ;;              of tests to run. The item portions are not respected.