diff --git a/src/util-bst-dict.scm b/src/util-bst-dict.scm
index 81afd9c..aa82d9a 100644
--- a/src/util-bst-dict.scm
+++ b/src/util-bst-dict.scm
@@ -10,7 +10,7 @@
   list->bdict
   bdict-find-value
   bdict-ref
-  bdict-filter-alues
+  bdict-filter-values
   bdict-keys
   bdict-map-list
   bdict-map-dict
diff --git a/src/util-bst.scm b/src/util-bst.scm
index 2e0f450..b63550b 100644
--- a/src/util-bst.scm
+++ b/src/util-bst.scm
@@ -290,7 +290,8 @@
 			      (let ((kv (vector-ref vec idx)))
 				(loop (if (pred? (car kv) (cdr kv))
 					  (cons kv res)
-					  res)))))))
+					  res)
+				      (sub1 idx)))))))
 	       (cddr kvv))))
 
  (define/doc (bst-balance bst)