Index: library/store/XOTclSdbm/xotclsdbm.c
===================================================================
diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -r1c11937f4f0aea905fbedfbb9c2d1782b08833f5
--- library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision c72f9f638677608fab1502cd696c8f2d6b2952f9)
+++ library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision 1c11937f4f0aea905fbedfbb9c2d1782b08833f5)
@@ -393,14 +393,14 @@
       return TCL_ERROR;
     }
 
-    XOTclAddIMethod(in, cl, "open", XOTclSdbmOpenMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "close", XOTclSdbmCloseMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "set", XOTclSdbmSetMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "exists", XOTclSdbmExistsMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "names", XOTclSdbmNamesMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "unset", XOTclSdbmUnsetMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "firstkey", XOTclSdbmFirstKeyMethod, 0, 0);
-    XOTclAddIMethod(in, cl, "nextkey", XOTclSdbmNextKeyMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "open", XOTclSdbmOpenMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "close", XOTclSdbmCloseMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "set", XOTclSdbmSetMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "exists", XOTclSdbmExistsMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "names", XOTclSdbmNamesMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "unset", XOTclSdbmUnsetMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "firstkey", XOTclSdbmFirstKeyMethod, 0, 0);
+    XOTclAddClassMethod(in, cl, "nextkey", XOTclSdbmNextKeyMethod, 0, 0);
 
     Tcl_SetIntObj(Tcl_GetObjResult(in), 1);
     return TCL_OK;