X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fcommon_stub.cpp;fp=src%2Fcommon_stub.cpp;h=dde97fa0e8841c21aa2750e2a4d4cfa0b326b4a2;hb=813b239795aac1844eb233dab7f8f98d8dba845e;hp=6f56d33f6190ba1b87b542222051a1b0a23386a5;hpb=ba65a1b770d860132fbb04be4ca931b983dcb915;p=SXSI%2Fxpathcomp.git

diff --git a/src/common_stub.cpp b/src/common_stub.cpp
index 6f56d33..dde97fa 100644
--- 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);
 }