Fix embarrassing typo in wttree overweight condition.

Evidently we don't have adequate automatic tests for this!

diff --git a/src/runtime/wttree.scm b/src/runtime/wttree.scm
index e2db7e2e5ea6084eefa0ec69fb7fe253130443cd..c05fa866b7b68bb67d7b48689bf949436af52787 100644 (file)
--- a/src/runtime/wttree.scm
+++ b/src/runtime/wttree.scm
@@ -128,7 +128,7 @@ we adopt here, described in
   (and (fix:< a b) (fix:< (fix:lsh (fix:and a b) 1) b)))
 
 (define-integrable (overweight? a b)
-  (log2< a (fix:lsh b -11)))
+  (log2< a (fix:lsh b -1)))
 
 (define-integrable (single? a b)
   (not (log2< b a)))