From d00144375bc0ddedf90732120b050d68c5c13e80 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 7 Mar 2013 19:10:57 +0100
Subject: [PATCH] do not assume too much on initial size

---
 fHashtbl.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fHashtbl.ml b/fHashtbl.ml
index 7eca0df8..f1e66dc9 100644
--- a/fHashtbl.ml
+++ b/fHashtbl.ml
@@ -156,7 +156,7 @@ module Tree(X : HASH) = struct
 
   (** Empty hashtable *)
   let empty size =
-    let size = max size 16 in  (* size >= 16 *)
+    let size = max size 4 in  (* size >= 4 *)
     Table (empty_buckets size)
 
   (** The address in a bucket array, after probing [i] times *)