Index: library/store/XOTclGdbm/xotclgdbm.c
===================================================================
diff -u -r1c11937f4f0aea905fbedfbb9c2d1782b08833f5 -rc942f4e117d2aa3c8594702e0476a3f73a4147df
--- library/store/XOTclGdbm/xotclgdbm.c	(.../xotclgdbm.c)	(revision 1c11937f4f0aea905fbedfbb9c2d1782b08833f5)
+++ library/store/XOTclGdbm/xotclgdbm.c	(.../xotclgdbm.c)	(revision c942f4e117d2aa3c8594702e0476a3f73a4147df)
@@ -34,7 +34,7 @@
   XOTcl_Object* obj = (XOTcl_Object*) cd;
   int flags, block_size, mode;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 2)
     return XOTclObjErrArgCnt(in, obj->cmdName, "open filename");
 
@@ -71,7 +71,7 @@
   db_t *db;
   XOTcl_Object* obj = (XOTcl_Object *) cd;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 1)
     return XOTclObjErrArgCnt(in, obj->cmdName, "close");
     
@@ -94,7 +94,7 @@
   Tcl_DString result;
   datum del, key;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 1)
     return XOTclObjErrArgCnt(in, obj->cmdName, "names");
   
@@ -131,7 +131,7 @@
   db_t *db;
   datum key, content;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc <2 || objc > 3)
     return XOTclObjErrArgCnt(in, obj->cmdName, "set key ?value?");
 
@@ -177,7 +177,7 @@
   db_t *db;
   datum key;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 2)
     return XOTclObjErrArgCnt(in, obj->cmdName, "exists variable");
 
@@ -204,7 +204,7 @@
   datum key;
   int ret;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 2)
     return XOTclObjErrArgCnt(in, obj->cmdName, "unset key");
   
@@ -232,7 +232,7 @@
   db_t *db;
   datum key;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 1)
     return XOTclObjErrArgCnt(in, obj->cmdName, "firstkey");
   
@@ -270,7 +270,7 @@
   db_t *db;
   datum  newkey;
 
-  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object");
+  if (!obj) return XOTclObjErrType(in, obj->cmdName, "Object", "");
   if (objc != 1)
     return XOTclObjErrArgCnt(in, obj->cmdName, "nextkey");