@@ -1221,11 +1221,12 @@
       (if maxload ;; only gate if maxload is specified, NOTE: maxload is normalized, i.e. load=1 means all cpus fully utilized
           (common:wait-for-normalized-load maxload "Waiting for load to drop before starting more tests" #f))
 
       ;; jobtools maxhomehostload is intended to prevent overloading on the homehost which can cause database corruption issues
       (if maxhomehostload
-          (common:wait-for-homehost-load maxhomehostload (conc "Waiting for homehost load to drop below normalized value of " maxhomehostload)))
+          (common:wait-for-homehost-load maxhomehostload
+					 (conc "Waiting for homehost load to drop below normalized value of " maxhomehostload)))
       
       (run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry)
       (runs:incremental-print-results run-id)
       (hash-table-set! test-registry (db:test-make-full-name test-name item-path) 'running)
       (runs:shrink-can-run-more-tests-count runsdat)  ;; DELAY TWEAKER (still needed?)
@@ -1672,10 +1673,16 @@
 	  (debug:print-info 4 *default-log-port* "OUTER COND: (not items)")
 	  (if (and (not (tests:match test-patts (tests:testqueue-get-testname test-record) item-path required: required-tests))
 		   (not (null? tal)))
 	      (loop (car tal)(cdr tal) reg reruns))
 	  (runs:testdat-prereqs-not-met-set! testdat (rmt:get-prereqs-not-met run-id waitons hed item-path mode: testmode itemmaps: itemmaps))
+
+	  ;; This would be a good place to block on homehost load
+
+
+
+	  
 	  (runs:dat-can-run-more-tests-set! runsdat (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs)) ;; look at the test jobgroup and tot jobs running
 	  (let ((loop-list (runs:process-expanded-tests runsdat testdat)))
             (if loop-list (apply loop loop-list))))
 
 	 ;; items processed into a list but not came in as a list been processed