Fix C++/OCaml wrappers.

[SXSI/xpathcomp.git] / src / common_stub.cpp

diff --git a/src/common_stub.cpp b/src/common_stub.cpp
index 6f56d33..dde97fa 100644 (file)
--- a/src/common_stub.cpp
+++ b/src/common_stub.cpp
@@ -63,7 +63,7 @@ value alloc_custom_(char* name)
   if (it == type_map->end())
     result = Val_unit;
   else
-    result = caml_alloc_custom(it->second.first, it->second.second, 1, 2);
+    result = caml_alloc_custom(it->second.first, it->second.second, 1, 1);
 
   CAMLreturn(result);
 }