Index: xotcl/library/store/XOTclSdbm/xotclsdbm.c
===================================================================
diff -u -r900ba9665a79888f0561e2c4b8574c2e4a3dad8b -rad8a63234e44a8788efede276e811051ab891fbe
--- xotcl/library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision 900ba9665a79888f0561e2c4b8574c2e4a3dad8b)
+++ xotcl/library/store/XOTclSdbm/xotclsdbm.c	(.../xotclsdbm.c)	(revision ad8a63234e44a8788efede276e811051ab891fbe)
@@ -377,11 +377,16 @@
     if (Tcl_PkgRequire(in, "xotcl::store", 0, 0) == NULL) {
         return TCL_ERROR;
     }
-    result = Tcl_VarEval (in,
-			  "Class Storage=Sdbm -superclass Storage",
+    result = Tcl_VarEval (in, "Class create Storage=Sdbm -superclass Storage",
 			  (char*) 0);
     if (result != TCL_OK)
       return result;
+    /*{
+      Tcl_Obj *res = Tcl_GetObjResult(in);
+      fprintf(stderr,"res='%s'\n", TclObjStr(res));
+      cl = XOTclGetClass(in, "Storage=Sdbm");
+      fprintf(stderr,"cl=%p\n",cl);
+      }*/
 
     cl = XOTclGetClass(in, "Storage=Sdbm");
     XOTclAddIMethod(in, cl, "open", XOTclSdbmOpenMethod, 0, 0);