diff --git a/fcore/search-list.sml b/fcore/search-list.sml
index 79a5f6a..8afb25f 100644
--- a/fcore/search-list.sml
+++ b/fcore/search-list.sml
@@ -28,7 +28,9 @@ struct
       ()
     end
 
-  val targetLength = 1024
+  (* clojure's persistent vectors contain arrays of length 32
+   * and this data structure is similar to that, so we also use 32 *)
+  val targetLength = 32
 
   val empty: t = {left = [], right = []}
 
diff --git a/shf b/shf
index c7f4639..371d86b 100755
Binary files a/shf and b/shf differ