Index: common.scm ================================================================== --- common.scm +++ common.scm @@ -1769,11 +1769,14 @@ (define (common:get-delay load-in numcpus) (let* ((ratio (/ load-in numcpus)) (new-option (configf:lookup *configdat* "load" "new-load-method"))) (if new-option (begin - (cond ((and (>= ratio 0) (<= ratio .9)) + (cond ((and (>= ratio 0) (< ratio .5)) + 0 + ) + ((and (>= ratio 0.5) (<= ratio .9)) (* ratio (/ 5 .9))) ((and (> ratio .9) (<= ratio 1.1)) (+ 5 (* (- ratio .9) (/ 55 .2)))) ((> ratio 1.1) 60)))