Index: library/store/XOTclSdbm/xotclsdbm.c
===================================================================
diff -u -r1c11937f4f0aea905fbedfbb9c2d1782b08833f5 -rc942f4e117d2aa3c8594702e0476a3f73a4147df
--- library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision 1c11937f4f0aea905fbedfbb9c2d1782b08833f5)
+++ library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision c942f4e117d2aa3c8594702e0476a3f73a4147df)
@@ -36,7 +36,7 @@
   for (i=0; i< objc; i++)
     fprintf(stderr, "   objv[%d]=%s\n",i,TclObjStr(objv[i]));
 */
-  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");
 
@@ -114,7 +114,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");
 
@@ -139,7 +139,7 @@
   Tcl_DString result;
   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, "names");
 
@@ -174,7 +174,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?");
 
@@ -223,7 +223,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)
     return XOTclObjErrArgCnt(in, obj->cmdName, "exists variable");
 
@@ -250,7 +250,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");
 
@@ -287,7 +287,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");
 
@@ -315,7 +315,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");