Index: facile-1.1/src/fcl_data.ml =================================================================== --- facile-1.1/src/fcl_data.ml +++ facile-1.1/src/fcl_data.ml 2012-10-15 16:46:00.198537578 +0100 @@ -16,7 +16,7 @@ module Hashtbl = struct type ('a, 'b) t = ('a, 'b) Hashtbl.t - let create = Hashtbl.create + let create n = Hashtbl.create (* no seed *) n let get h = h let add h k d =